Page. EventList-Eigenschaft (Visio)Page.EventList property (Visio)

Gibt die EventList -Auflistung eines Objekts oder der EventList -Auflistung zurück, die ein Event -Objekt enthält.Returns the EventList collection of an object or the EventList collection that contains an Event object. Schreibgeschützt.Read-only.

SyntaxSyntax

Ausdruck. EventListexpression.EventList

Ausdruck Eine Variable, die ein Page -Objekt darstellt.expression A variable that represents a Page object.

RückgabewertReturn value

EventListEventList

BeispielExample

Dieses VBA-Makro (Microsoft Visual Basic for Applications) zeigt, wie die EventList -Eigenschaft verwendet wird, um der EventList -Auflistung eines Document -Objekts ein Event -Objekt hinzuzufügen.This Microsoft Visual Basic for Applications (VBA) macro shows how to use the EventList property to add an Event object to the EventList collection of a Document object. Wenn das Event-Objekt durch das Hinzufügen eines Shapes zu einem Dokument ausgelöst wird, wird das angegebene VSL-Add-On ausgeführt.When the Event object is triggered by adding a shape to the document, the VSL add-on you specify runs.

Ersetzen Sie vor dem Ausführen dieses Makros Verweise auf path\filename und filename durch einen gültigen Pfad und Namen für ein Microsoft Visio-Objekt oder eine ausführbare Datei (exe).Before running this macro, replace references to fullpath\filename and filename with a valid path and name for a Microsoft Visio VSL or executable (EXE) add-on.

 
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 FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.