Discussion :

[Orbeaman]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[Menhir]

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

[Orbeaman]

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...

[Menhir]

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

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

[Orbeaman]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

[Menhir]

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.
Je suis sans doute trop pragmatique.