Visio (Section.EventList 屬性)
會傳回物件的EventList集合,或包含 Event 物件的EventList集合。 唯讀。
運算式。EventList
表達 代表 Section 物件的變數。
EventList
這個 Microsoft Visual Basic for Applications (VBA) 巨集將示範如何使用 EventList 屬性將 Event 物件加入到 Document 物件的 EventList 集合中。 當加入圖形到文件中而觸發 Event 物件時,會執行您所指定的 VSL 附加元件。
在執行這個巨集之前,請將 fullpath\filename 及 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 支援與意見反應。