Developpez.com

Plus de 2 000 forums
et jusqu'à 5 000 nouveaux messages par jour

FAQ PowerPointConsultez toutes les FAQ

Nombre d'auteurs : 20, nombre de questions : 150, dernière mise à jour : 30 mars 2017 

 
OuvrirSommaireMacros, VBA et fonctions avancéesEvènements

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

vba
Sélectionnez

Public WithEvents App As Application

Le fonctionnement de la gestion des évènements doit être initialisé, par exemple par du code lancé par un bouton sur la première diapositive :

vba
Sélectionnez

Dim X As New GestionEvents
Private Sub CommandButton1_Click()
        Set X.App = Application 
        SlideShowWindows(1).View.Next 'Passer à la diapositive suivante
End Sub

Pour finir on rajoute dans le module de classe GestionEvents les évènements souhaités.

vba
Sélectionnez

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
Mis à jour le 13 juillet 2008  par bbil

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

Créé le 4 août 2009  par Philippe JOCHMANS
  

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2009 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.