PowerPoint VBA教程:PresentationSave事件

保存任意打开的演示文稿前发生此事件。

Private Sub application_PresentationSave(ByVal Pres As Presentation)

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

Pres   要保存的演示文稿。

VBA示例

本示例将当前演示文稿保存为 HTML 4.0 类型的文件,其文件名为“mallard.htm”。然后显示一条消息,表明当前文件名的演示文稿同时保存为 PowerPoint 和 HTML 两种格式。


Private Sub App_PresentationSave(ByVal Pres As Presentation)
    With Pres.PublishObjects(1)
        PresName = .SlideShowName
        .SourceType = ppPublishAll
        .FileName = "C:\HTMLPres\mallard.htm"
        .HTMLVersion = ppHTMLVersion4
        MsgBox ("Saving presentation " & "'" _
            & PresName & "'" & " in PowerPoint" _
            & Chr(10) & Chr(13) _
            & " format and HTML version 4.0 format")
        .Publish
    End With
End Sub

上页:PowerPoint VBA教程:PresentationPrint事件 下页:PowerPoint VBA教程:SlideSelectionChanged事件

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 应用程序
PowerPoint VBA教程:创建自定义对话框 PowerPoint VBA教程:创建用户窗体
PowerPoint VBA教程:显示自定义对话框 PowerPoint VBA教程:获得有关 Macintosh 关键字的帮助
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号