Figer PowerPoint depuis Excel VBA (API)

Bonjour,

Je génère des présentations PowerPoint depuis Excel en VBA et j'aimerai figer PowerPoint pendant la création des presentations.

Il n'y a visiblement pas de méthode native de la classe PowerPoint.Application. La fonction API LockWindowUpdate devrait faire l'affaire, mais semblerait-il qu'elle ne fonctionne pas sous Windows 10 (Office 2013 32 bit)... Je n'ai pas besoin de rafraichir l'écran de PowerPoint une fois la création effectuée, car je me contante d'exporte les présentations en .pdf.

D'après mes recherches le code suivant (minimaliste devrait pourtant fonctionner...)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As Long) As Long   Public Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long   ' Sub noScreenUpdate()   'création nouvelle presentation (vierge) via PowerPoint.Application...   LockWindowUpdate hwndLock:=FindWindow(lpClassName:="PPTFrameClass", lpWindowName:=0&)   'ajout de Slides, Shapes,...   'export en pdf et fermeture de l'instance PowerPoint.Application   End Sub

---

Avez-vous une solution ?

Merci par avance !

Ne serait-il pas plus simple de rendre l'application PowerPoint invisible pendant l'opération.
Par exemple avec des propriétés comme celles ci-dessous :
https://docs.microsoft.com/fr-fr/off...cation.visible
https://docs.microsoft.com/fr-fr/off...ow.windowstate

J'avais effectivement essayer avec PowerPoint.Application.Visible = False, mais il n'a semblé impossible de d'ajouter des éléments à la presentation courante (faudrait quand même que je re-vérifie). Quant à l'autre méthode, je n'ai pas encore ou essayer, car le site de Microsoft est bloqué depuis mon PC pro...

Citation:

---

Envoyé par Orbeaman

Quant à l'autre méthode, je n'ai pas encore ou essayer, car le site de Microsoft est bloqué depuis mon PC pro...

---

Citation:

---

Propriété DocumentWindow.WindowState (PowerPoint)

Cette propriété renvoie ou définit l’état de la fenêtre spécifiée. Lecture-écriture.

Syntaxe : expression. WindowState
expression = Variable qui représente un objet DocumentWindow .

Valeur renvoyée : PpWindowState

Remarques
La valeur de la propriété WindowState peut être une de ces constantes PpWindowState .
ppWindowMaximized
ppWindowMinimized
ppWindowNormal

Si l’état de la fenêtre est ppWindowNormal, la fenêtre n’est ni agrandie ni réduite.

Exemple
Cet exemple montre comment agrandit le premier membre de la collection DocumentWindows .
Windows(1).WindowState = ppWindowMaximized

---

Merci pour ces précisions, j'imagine que c'est équivalent à l'API suivante (qui fonctionne) :

Code:

---

1 2 3

Declare Function ShowWindow Lib "user32" Alias "ShowWindow" ( _ ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long

---

avec cCmdShow à SW_MINIMIZE (6). D'ailleurs, je viens de voir que SW_HIDE (0) cache la fenêtre. Je vais essayer de ce pas ... ;)

Je ne vois pas trop l'intérêt d'ajouter une bibliothèque pour faire (en plus compliqué) ce qui existe déjà dans la bibliothèque standard de l'application. :koi:
Je suis sans doute trop pragmatique. :mrgreen:

Effectivement,...

La propriété WindowState fonctionne bien, mais ce serait encore mieux de masquer Powerpoint si possible.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Option Explicit   Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)   'depuis Excel Sub test()   Dim pApp As New PowerPoint.Application   ' pApp.Visible = msoFalse '-> "Application (unknown member) : Invalid request. Hiding the application is not allowed" (je pense avoir eu une autre erreur avec mon PC pro)   Dim pPres As PowerPoint.Presentation   Set pPres = pApp.Presentations.Add   pPres.Windows(1).WindowState = ppWindowMinimized   pPres.Slides.AddSlide 1, pPres.SlideMaster.CustomLayouts(1)   Sleep 10000   pPres.Close   pApp.Quit   End Sub

---

Ps : je suis retourné sur mon PC perso (Excel 2016 64 bit), il me faudra donc un peu de temps pour adapter l'API (PrtSafe).