Compartir a través de

Propiedad Layer.EventList (Visio)

  • Artículo

Devuelve la colección EventList de un objeto o la colección EventList que contiene un objeto Event . Solo lectura.

Sintaxis

expresión. Eventlist

Expresión Variable que representa un objeto Layer .

Valor devuelto

EventList

Ejemplo:

Esta macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo utilizar la propiedad EventList para agregar un objeto Event a la colección EventList de un objeto Document. Cuando el objeto Event se desencadena al agregar una forma al documento, se ejecuta el complemento VSL que se ha especificado.

Antes de ejecutar la macro, reemplace las referencias a fullpath\filename y filename por una ruta de acceso y un nombre válidos para los complementos de Microsoft Visio VSL o ejecutables (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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.