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