将声明的对象连接到文档对象 （VBA/ActiveX）

但是，在运行过程之前，必须将类模块中声明的对象与该对象连接起来。Document

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

   Dim X As New EventClassModule

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

   Sub InitializeEvents()
     Set X.Doc = ThisDrawing
   End Sub

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

   Call InitializeEvents

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