PowerPoint VBA教程:使用 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对象,然后当事件发生时,类模块中的事件过程就会运行。

上页:PowerPoint VBA教程:在幻灯片中使用 ActiveX 控件 下页:PowerPoint VBA教程:在文档中使用 ActiveX 控件

PowerPoint VBA教程:使用 Application对象的事件

PowerPoint VBA教程:在文档中使用 ActiveX 控件 PowerPoint VBA教程:使用形状(绘图对象)
PowerPoint VBA教程:使用窗格和视图 PowerPoint VBA教程:使用表格
PowerPoint VBA教程:与语言相关的属性和方法 PowerPoint VBA教程:新的事件
PowerPoint VBA教程:新的方法(按字母顺序) PowerPoint VBA教程:新的方法(按对象排序)
PowerPoint VBA教程:新的对象 PowerPoint VBA教程:新的属性(按字母顺序)
PowerPoint VBA教程:新的属性(按对象排序) PowerPoint VBA教程:OLE 程序标识符
PowerPoint VBA教程:为 Microsoft PowerPoint 2002 开发人员新增的内容 PowerPoint VBA教程:Activate方法
PowerPoint VBA教程:Add方法 PowerPoint VBA教程:AddBaseline方法
PowerPoint VBA教程:AddCallout方法 PowerPoint VBA教程:AddComment方法
PowerPoint VBA教程:AddConnector方法 PowerPoint VBA教程:AddCurve方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号