当鼠标单击或定时动画启动时发生此事件,但在动画对象出现时结束。
Private Sub application_SlideShowNextBuild(ByVal Wn As SlideShowWindow)
application Application 类型的对象,在类模块中声明,自身具有事件。有关使用 Application 对象的事件的详细信息,请参阅使用 Application 对象的事件。
Wn 活动幻灯片放映窗口。
如果第一张幻灯片上的当前形状是影片,本示例将持续播放该影片直到演示人员手动停止播放为止。此代码用于第二个 SlideShowNextSlide 事件示例。
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