Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Gibt die EventList-Auflistung eines Objekts oder der EventList-Auflistung zurück, die ein Event-Objekt enthält. Schreibgeschützt.
Syntax
Ausdruck. EventList
Ausdruck Eine Variable, die ein Selection-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.