Partager via

Propriété Style.EventList (Visio)

  • Article

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

Syntaxe

expression. EventList

Expression Variable qui représente un objet Style .

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é par l'ajout d'une forme au document, le module complémentaire VSL spécifié est exécuté.

Avant d’exécuter cette macro, remplacez les références à fullpath\filename et filename par un chemin d’accès et un nom valides pour un module complémentaire VSL ou exécutable (EXE) de 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.