SlideShowNextBuild Event
Occurs upon mouse-click or timing animation, but before the animated object becomes visible.
Private Subapplication**_SlideShowNextBuild(ByValWnAs 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
Applies to | Application Object
See Also | SlideShowNextSlide Event