PowerPoint VBA教程:PresentationBeforeSave事件

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

Private Sub object_PresentationBeforeSave(ByVal Pres As Presentation, Cancel As Boolean)

object 变量。该变量引用在类模块中以事件方式声明的Application 类型的对象。

Pres 将被保存的演示文稿。

Cancel 该参数为 True 时,取消保存过程。

说明

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

若要访问 Application事件,请在代码的通用声明部分中声明一个 Application 变量。然后将此变量设置为要访问其事件的 Application对象。有关使用 Microsoft PowerPoint Application对象的事件的信息,请参阅使用 Application对象的事件

VBA示例

本示例检查演示文稿中是否存在改动。如果存在改动,会询问是否保存演示文稿。如果用户的答复为不保存,将取消此保存过程。本示例假定一个称为 PPTApp 的 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

上页:PowerPoint VBA教程:NewPresentation事件 下页:PowerPoint VBA教程:PresentationClose事件

PowerPoint VBA教程:PresentationBeforeSave事件

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教程:控件和对话框事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号