通过

将事件与应用程序对象配合使用

  • 项目

若要为 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 Office PowerPoint 的 Application 对象，当事件发生时，类模块中的事件过程就会运行。

支持和反馈

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