将声明的对象连接到应用程序对象 （VBA/ActiveX）

在执行与对象事件相关的过程之前，必须将类模块中的声明对象与应用程序对象连接。

1. 在主模块的“代码”窗口中，将以下行添加到声明部分：

   Dim X As New EventClassModule

2. 在同一窗口中，添加以下子例程：

   Sub InitializeEvents()
     Set X.App = ThisDrawing.Application
   End Sub

3. 在主模块的代码中，添加对子例程的调用：InitializeEvents

   Call InitializeEvents

   运行过程后，类模块中的对象指向指定的对象，并且类模块中的任何事件过程都将在事件发生时运行。InitializeEventsAppApplication