SlideShowNextBuild Event
Occurs upon mouse-click or timing animation, but before the animated object becomes visible.
Private Sub application_SlideShowNextBuild(ByVal Wn As SlideShowWindow)
application An object of type Application declared with events in a class module. For information about using events with the Application object, see Using Events with the Application Object.
Wn The active slide show window.
Example
If the current shape on slide one is a movie, this example plays the movie continuously until stopped manually by the presenter. This code is designed to be used with the second SlideShowNextSlide event example.
Private Sub App_SlideShowNextBuild(ByVal Wn As SlideShowWindow)
If EvtCounter <> 0 Then
With ActivePresentation.Slides(1) _
.Shapes(shpAnimArray(2, EvtCounter))
If .Type =msoMedia Then
If .MediaType = ppMediaTypeMovie
.AnimationSettings.PlaySettings _
.LoopUntilStopped
End If
End If
End With
End If
EvtCounter = EvtCounter + 1
End Sub