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