全部显示

SlideShowNextBuild 事件

       

当鼠标单击或定时动画启动时发生此事件,但在动画对象出现时结束。

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