Événement Application.SlideShowNextSlide (PowerPoint)

Article
04/07/2023

Se produit immédiatement avant la transition vers la diapositive suivante. Pour la première diapositive, se produit immédiatement après l’événement SlideShowBegin .

Syntaxe

expression. SlideShowNextSlide(Wn)

Expression Expression qui renvoie un objet Application .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Wn	Obligatoire	SlideShowWindow	Fenêtre de diaporama active.

Remarques

Pour plus d’informations sur l’utilisation des événements avec l’objet Application, voir Utilisation des événements avec l’objet Application.

Exemple

Cet exemple montre comment déterminer la position de la diapositive suivant l’événement SlideShowNextSlide. Si la diapositive suivante est la diapositive 3, le type du pointeur se transforme en stylo et la couleur de celui-ci est 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

Cet exemple montre comment mettre à zéro la variable d’un compteur global. Puis, il montre comment calculer le nombre de formes sur la diapositive suivant cet événement, comment déterminer les formes qui sont animées et comment remplir un tableau global avec l’ordre des animations et le numéro de chaque forme.

Remarque

Le tableau créé dans cet exemple est également utilisé dans l’exemple de l’événement SlideShowNextBuild.

Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow)



   Dim i as Integer, j as Integer, numShapes As Integer

   Dim objSld As Slide



   Set objSld = ActivePresentation.Slides _
        (ActivePresentation.SlideShowWindow.View _
        .CurrentShowPosition + 1)

      With objSld.Shapes

         numShapes = .Count

         If numShapes > 0 Then

            j = 1

            ReDim shpAnimArray(1 To 2, 1 To numShapes)

            For i = 1 To numShapes

               If .Item(i).AnimationSettings.Animate Then

                  shpAnimArray(1, j) = _
                     .Item(i).AnimationSettings.AnimationOrder

                     shpAnimArray(2, j) = i

                     j = j + 1

               End If

            Next

         End If

      End With

End Sub

Voir aussi

Objet Application

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via