PowerPoint VBA教程:SlideShowNextBuild事件

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

Private Sub application_SlideShowNextBuild(ByVal Wn As SlideShowWindow)

application   Application 类型的对象,在类模块中声明,自身具有事件。有关使用 Application对象的事件的详细信息,请参阅使用 Application对象的事件

Wn   活动幻灯片放映窗口。

VBA示例

如果第一张幻灯片上的当前形状是影片,本示例将持续播放该影片直到演示人员手动停止播放为止。此代码用于第二个 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

上页:PowerPoint VBA教程:SlideShowEnd事件 下页:PowerPoint VBA教程:SlideShowNextClick事件

PowerPoint VBA教程:SlideShowNextBuild事件

PowerPoint VBA教程:SlideShowNextClick事件 PowerPoint VBA教程:SlideShowNextSlide事件
PowerPoint VBA教程:WindowActivate事件 PowerPoint VBA教程:WindowBeforeDoubleClick事件
PowerPoint VBA教程:WindowBeforeRightClick事件 PowerPoint VBA教程:WindowDeactivate事件
PowerPoint VBA教程:WindowSelectionChange事件 PowerPoint VBA教程:隐藏的语言元素
PowerPoint VBA教程:在文档中添加控件 PowerPoint VBA教程:在用户窗体中添加控件
PowerPoint VBA教程:控件和对话框事件 PowerPoint VBA教程:在一个 Microsoft Office 应用程序中控制另一个 Microsoft Office 应用程序
PowerPoint VBA教程:创建自定义对话框 PowerPoint VBA教程:创建用户窗体
PowerPoint VBA教程:显示自定义对话框 PowerPoint VBA教程:获得有关 Macintosh 关键字的帮助
PowerPoint VBA教程:初始化控件属性 PowerPoint VBA教程:发布 Web 演示文稿
PowerPoint VBA教程:返回集合中的对象 PowerPoint VBA教程:在代码运行时使用控件值
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号