Application.SlideShowNextSlide-Ereignis (PowerPoint)

Artikel
09/12/2024

Tritt unmittelbar vor dem Übergang zur nächsten Folie auf. Für die erste Folie tritt unmittelbar nach dem SlideShowBegin-Ereignis auf.

Syntax

Ausdruck. SlideShowNextSlide(Wn)

Ausdruck Ein Ausdruck, der ein Application-Objekt zurückgibt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Wn	Erforderlich	SlideShowWindow	Das aktive Bildschirmpräsentationsfenster.

Hinweise

Informationen zum Verwenden von Ereignissen mit dem Application-Objekt finden Sie unter Verwenden von Ereignissen mit dem Application-Objekt.

Beispiel

In diesem Beispiel wird die Position für die Folie festgelegt, die nach dem SlideShowNextSlide-Ereignis angezeigt wird. Wenn die nächste Folie Folie 3 ist, nimmt der Mauszeiger im Beispiel die Form eines Stifts an, und die Stiftfarbe wird zu Rot geändert.

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

In diesem Beispiel wird eine globale Zählervariable auf Null gesetzt. Dann wird berechnet, wie viele Formen die nach diesem Ereignis gezeigte Folie enthält, bestimmt, welche Formen Animationen enthalten, und die Animationsreihenfolge sowie die Nummer jeder Form in eine Matrix eingetragen.

Hinweis

Das in diesem Beispiel erstellte Array wird auch im Beispiel für das SlideShowNextBuild-Ereignis verwendet.

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

Siehe auch

Application-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über