通过

Application.EventList 属性 (Visio)

  • 项目

返回对象的 EventList 集合或包含 Event 对象的EventList 集合。 此为只读属性。

语法

表达式。EventList

expression：表示 Application 对象的变量。

返回值

EventList

示例

以下 Microsoft Visual Basic for Applications (VBA) 宏显示如何使用 EventList 属性将 Event 对象添加到 Document 对象的 EventList 集合中。 通过将形状添加到文档来触发 Event 对象时，将运行指定的 VSL 加载项。

在运行此宏之前，请将对 和 filename 的fullpath\filename引用替换为 Microsoft Visio VSL 的有效路径和名称或可执行文件 (EXE) 加载项。

 
Public Sub EventList_Example() 
 
 Dim vsoEventList As Visio.EventList 
 Dim vsoEvent As Visio.Event 
 Dim vsoAddons As Visio.Addons 
 Dim vsoAddon As Visio.Addon 
 
 'Prevent overflow error. 
 Const visEvtAdd% = &H8000 
 
 'Add the specified add-on to the Addons collection. 
 Set vsoAddons = Visio.Addons 
 Set vsoAddon = vsoAddons.Add ("fullpath\filename") 
 
 'Add a ShapeAdded event to the EventList collection 
 'of the document. The event will start the specified add-on, which 
 'should take no arguments. 
 Set vsoEventList = ThisDocument.EventList 
 Set vsoEvent = vsoEventList.Add(visEvtAdd + visEvtShape, visActCodeRunAddon, _ 
 "filename", "") 
 
End Sub

支持和反馈

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