Comment exécuter une macro “OnEnterSlide” ou “OnLeaveSlide” dans Powerpoint VBA?

Est-il une sorte d'événement qui permet d'exécuter une macro à chaque fois qu'on entre dans une diapositive ou d'un congé d'une diapositive ?

OriginalL'auteur user310291 | 2010-06-05

  1. 6

    SlideShowNextSlide ou OnSlideShowPageChange

    Vous pouvez trouver la liste complète sur http://officeone.mvps.org/vba/events_version.html

    Exemple de Code à partir http://msdn.microsoft.com/en-us/library/aa211571%28office.11%29.aspx

    Cet exemple, détermine la position du curseur de la diapositive à la suite de la
    SlideShowNextSlide événement.

    Si la diapositive suivante est faites glisser trois, l'exemple des changements
    le type de pointeur stylo et le crayon de couleur rouge.

    Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow)

Dim Showpos As Integer

Showpos = Wn.View.CurrentShowPosition + 1


 If Showpos = 3 Then  
     With ActivePresentation.SlideShowSettings.Run.View
        .PointerColor.RGB = RGB(255, 0, 0)
        .PointerType = ppSlideShowPointerPen
     End With
  Else
     With ActivePresentation.SlideShowSettings.Run.View
        .PointerColor.RGB = RGB(0, 0, 0)
        .PointerType = ppSlideShowPointerArrow
     End With
  End If
End Sub
    C'est juste à l'entrée. Je ne sais pas si il y a un événement sur "quitter"
    J'essaie de le déclencher par l'exécution de cette stackoverflow.com/questions/2979950/... dans la fenêtre d'exécution, mais ne semble pas fonctionner. Je n'ai méfait quelque chose ?
    Répondu à l'autre question

    OriginalL'auteur Dr. belisarius

  2. -2

    Je tiens à ajouter que l'événement à utiliser dépend vraiment de la version de PowerPoint.
    Pour moi (PP 2007) le prochain événement fonctionne très stable:

    Sub OnSlideShowPageChange(ByVal objWindow As SlideShowWindow)
   Debug.Print objWindow.View.Slide.SlideIndex ' you can use this to check which slide invokes the event
End Sub

    Ce code n'a pas besoin d'autres structures de classe (PPTEvent).
    Mais si vous prévoyez d'utiliser d'autres événements, il est une bonne idée de mettre de l'initialisation de cette classe en OnSlideShowPageChange.

    Veuillez noter que ce code fonctionne avec la première partie de la tâche donnée dans la diapositive.
    Vous pouvez demander "Qu'à propos de son départ?". Eh bien, c'est une question de relativité. Ce qui est entrer pour une diapositive est en même temps laissant pour l'autre. Utilisez simplement objWindow.Vue.Diapositive.SlideIndex pour suivre la diapositive en cours, de la comparer avec la diapositive précédente de l'indice et de décider si vous venez de quitter le besoin d'un.

    OriginalL'auteur hypers