Application.SlideShowNextBuild Event (PowerPoint)
Occurs upon mouse-click or timing animation, but before the animated object becomes visible. .
For information about using events with the Application object, see How to: Use Events with the Application Object.
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