FAQ PowerPoint

FAQ PowerPointConsultez toutes les FAQ
Nombre d'auteurs : 20, nombre de questions : 150, dernière mise à jour : 10 juillet 2021
Sommaire→Macros, VBA et fonctions avancées→EvènementsPour cela il faut utiliser les actions évènementielles de l'application PowerPoint, la procédure est décrite dans l'aide en ligne et consiste dans un premier temps à créer un module de classe nommé par exemple GestionEvents, dans lequel on place la déclaration d'une variable application.
Public WithEvents App As ApplicationLe fonctionnement de la gestion des évènements doit être initialisé, par exemple par du code lancé par un bouton sur la première diapositive :
Dim X As New GestionEvents
Private Sub CommandButton1_Click()
Set X.App = Application
SlideShowWindows(1).View.Next 'Passer à la diapositive suivante
End SubPour finir on rajoute dans le module de classe GestionEvents les évènements souhaités.
Public WithEvents App As Application
'
' L'événement traité sur la sortie de powerpoint
'
Private Sub App_PresentationClose(ByVal Pres As Presentation)
MsgBox "Au Revoir"
End Sub
'
' Un autre exemple d'événement :
'
Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
MsgBox Wn.View.Slide.Name
End Sub
Contrairement aux autres applications Office comme Word ou Excel, il n'est pas possible de lancer une macro à l'ouverture d'un fichier PowerPoint.
Pour cela vous devez utiliser une macro-complémentaire avec une routine qui se nomme : Auto_Open().
Cette routine se déclenchera à l'ouverture de PowerPoint (dans la mesure où le complément a bien été chargé.



