Freigeben über

Shapes.EventList-Eigenschaft (Visio)

  • Artikel

Gibt die EventList-Auflistung eines Objekts oder der EventList-Auflistung zurück, die ein Event-Objekt enthält. Schreibgeschützt.

Syntax

Ausdruck. EventList

expression Eine Variable, die ein Shapes-Objekt darstellt.

Rückgabewert

EventList

Beispiel

Das folgende VBA-Makro (Microsoft Visual Basic für Applikationen) zeigt, wie die EventList-Eigenschaft verwendet werden kann, um ein Event-Objekt zur EventList-Auflistung eines Document-Objekts hinzuzufügen. Wenn das Event-Objekt durch das Hinzufügen eines Shapes zu einem Dokument ausgelöst wird, wird das angegebene VSL-Add-On ausgeführt.

Ersetzen Sie vor der Ausführung dieses Makros die Verweise auf fullpath\filename und filename durch einen gültigen Pfad und einen Namen für ein Microsoft Visio-VSL- oder ein ausführbares Add-On (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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.