通过

Application.PresentationBeforeSave 事件 (PowerPoint)

  • 项目

保存演示文稿前发生此事件。

语法

expression. PresentationBeforeSave( _Pres_, _Cancel_ )

expression：表示 Application 对象的变量。

参数

名称 必需/可选 数据类型 说明
Pres 必需 Presentation 正在保存的演示文稿。
Cancel 必需 Boolean 真 要取消保存过程。

备注

此事件在 "另存为" 对话框出现时被触发。

若要访问 应用程序 事件， 应用程序 中声明变量代码的通用声明部分。 您要访问的事件的 应用程序 对象，然后设置变量等。 有关使用 Microsoft PowerPoint Application 对象的事件的信息，请参阅操作方法：使用 Application 对象事件。

示例

此示例检查演示文稿中是否有修订，如果存在，则询问是否保存演示文稿。 如果用户的响应，则否，保存处理将被取消。 此示例假定已经使用 WithEvents 关键字声明保存 应用程序 对象。

Private Sub PPTApp_PresentationBeforeSave(ByVal Pres As Presentation, _
        Cancel As Boolean)

    Dim intResponse As Integer

    Set Pres = ActivePresentation

    If Pres.HasRevisionInfo Then

        intResponse = MsgBox(Prompt:="The presentation contains revisions. " & _
            "Do you want to accept the revisions before saving?", Buttons:=vbYesNo)

        If intResponse = vbYes Then

            Cancel = True

            MsgBox "Your presentation was not saved."

        End If

    End If

End Sub

另请参阅

Application 对象

自动保存

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。