使用 Application 对象的事件

若要为 Application 对象的事件创建事件句柄，需要完成以下三个步骤：

1. 在类模块中声明一个对象变量以响应事件。
2. 编写特定的事件过程。
3. 在另一模块中初始化声明的对象。

声明对象变量

在为 Application 对象的事件编写过程之前，必须新建一个类模块，然后声明一个具有事件的 Application 类型的对象。例如，假设已新建一个类模块且其名称为 EventClassModule。该新类模块包含以下代码。

Public WithEvents App As Application

编写事件过程

声明具有事件的新对象之后，该对象就会出现在类模块的“对象”列表中，然后就可以为此新对象编写事件过程。（当在“对象”列表中选择新对象时，“过程”列表中就会列出该对象的有效事件。）从“过程”列表中选择一个事件；就会在类模块中添加一个空过程。

Private Sub App_NewPresentation()

End Sub

初始化声明的变量

在过程运行之前，必须将类模块中声明的对象（本示例中为 App）与 Application 对象相连。用户可以在任意模块中使用以下代码实现此处理过程。

Dim X As New EventClassModule
Sub InitializeApp()
    Set X.App = Application
End Sub

运行 InitializeApp 过程。当运行此过程后，类模块中的 App 对象就会指向 Microsoft PowerPoint 的 Application 对象，然后当事件发生时，类模块中的事件过程就会运行。