PowerPoint VBA教程:PresentationClose事件

关闭任意打开的演示文稿时发生此事件,同时从Presentations集合中删除该演示文稿。

Private Sub application_PresentationClose(ByVal Pres As Presentation)

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

Pres  正在关闭的演示文稿。

VBA示例

本示例将活动演示文稿的一个副本保存为 HTML 文件,该文件具有相同的文件名且位于同一文件夹中。


Private Sub App_PresentationClose(ByVal Pres As Presentation)
    FindNum = InStr(1, Pres.FullName, ".")
    HTMLName = Mid(Pres.FullName, 1, FindNum - 1) _
        & ".htm"
    Pres.SaveCopyAs HTMLName, ppSaveAsHTML
End Sub

上页:PowerPoint VBA教程:PresentationBeforeSave事件 下页:PowerPoint VBA教程:PresentationNewSlide事件

PowerPoint VBA教程:PresentationClose事件

PowerPoint VBA教程:PresentationNewSlide事件 PowerPoint VBA教程:PresentationOpen事件
PowerPoint VBA教程:PresentationPrint事件 PowerPoint VBA教程:PresentationSave事件
PowerPoint VBA教程:SlideSelectionChanged事件 PowerPoint VBA教程:SlideShowBegin事件
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 应用程序
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号