全部显示

PresentationSave 事件

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

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

Pres   要保存的演示文稿。

示例

本示例将当前演示文稿保存为 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