title | keywords | f1_keywords | api_name | ms.assetid | ms.date | ms.localizationpriority | ||
---|---|---|---|---|---|---|---|---|
Application.SlideShowNextBuild event (PowerPoint) |
vbapp10.chm621012 |
|
|
63919ea5-57e4-853a-0e5a-94e1126cbfbf |
06/08/2017 |
medium |
Occurs upon mouse-click or timing animation, but before the animated object becomes visible. .
expression. SlideShowNextBuild
(Wn)
expression A variable that represents an Application object.
Name | Required/Optional | Data type | Description |
---|---|---|---|
Wn | Required | SlideShowWindow | The active slide show window. |
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
[!includeSupport and feedback]