Propriété Application.EventList (Visio)

Renvoie la collection EventList d’un objet ou la collection EventList qui contient un objet Event . En lecture seule.

Syntaxe

expression. EventList

expressionUne variable qui représente un objetApplication.

Valeur renvoyée

EventList

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) indique comment utiliser la propriété EventList pour ajouter un objet Event à la collection EventList d'un objet Document. Lorsque l’objet Event est déclenché en ajoutant une forme au document, le module complémentaire VSL que vous spécifiez s’exécute.

Avant d’exécuter cette macro, remplacez les références à fullpath\filename et filename par un chemin et un nom valides pour un module complémentaire VSL ou exécutable (EXE) Microsoft Visio.

 
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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.