VBA Powerpoint如何Macro_BeforeRun？

Question

是否有可能触发事件。在宏∀VBA模块运行之前保存文档？

Answer 1

如果您的问题是“如何在保存演示文稿之前触发事件”，则答案如下。这是一个多步骤的过程。

1. 添加一个名为CEvents的类模块(不是标准模块)，并向其添加以下代码：

Dim WithEvents ppApp As PowerPoint.Application

Sub Initialise()
    Set ppApp = PowerPoint.Application
End Sub

Private Sub ppApp_PresentationBeforeSave(ByVal Pres As Presentation, Cancel As Boolean)
    MsgBox "Before save for " & Pres.Name
End Sub

https://stackoverflow.com/a/38295674/11318818：

1. 遵循这个过程，如下所述

在放置Dim mEvents As CEvents过程的标准模块中添加模块级声明：Dim mEvents As CEvents

1. 在MyOnloadProcedure()过程中，将MsgBox "Hello"替换为：

Set mEvents = New CEvents
mEvents.Initialise

1. 保存您的演示文稿(必须启用宏(如.pptm) )。关闭并重新打开你的演示文稿。单击“保存以测试”，您将看到消息框.

请注意，一旦您对VBA代码进行模块级编辑，PresentationBeforeSave事件将停止触发，直到您关闭并重新打开演示文稿.这是因为模块级变量在进行此类编辑时处于松散状态，然后在重新打开演示文稿时重新设置状态。