PowerPoint VBA教程:SlideShowEnd事件

本事件幻灯片放映结束后——即最后一个SlideShowNextSlide事件后发生。

Private Sub application_SlideShowEnd(ByVal Pres As Presentation)

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

Pres   当发生此事件时关闭演示文稿。

说明

如果SlideShowBegin事件已发生,则 SlideShowEnd事件总发生在幻灯片放映结束之前。用户可使用 SlideShowEnd事件将 SlideShowBegin事件中发生的任何属性设置和变量初始值恢复到最初的设置。

VBA示例

本示例在幻灯片放映结束时关闭从第一张到第四张幻灯片的条目效果和自动定时换片幻灯片放映切换效果。本示例也将幻灯片设置为手动换片。


Private Sub App_SlideShowEnd(ByVal Pres As Presentation)
    With Pres.Slides.Range(Array(1, 4)) _
            .SlideShowTransition
        .EntryEffect = ppEffectNone
        .AdvanceOnTime = msoFalse
    End With
    With Pres.SlideShowSettings
        .AdvanceMode = ppSlideShowManualAdvance
    End With
End Sub

上页:PowerPoint VBA教程:SlideShowBegin事件 下页:PowerPoint VBA教程:SlideShowNextBuild事件

PowerPoint VBA教程:SlideShowEnd事件

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教程:返回集合中的对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号