Share via


Shape.EventList Property

Visio Automation Reference

Returns the EventList collection of an object or the EventList collection that contains an Event object. Read-only.

Version Information
 Version Added:  Visio 4.0

Syntax

expression.EventList

expression   A variable that represents a Shape object.

Return Value
EventList

Example

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. When the Event object is triggered by adding a shape to the document, the VSL add-on you specify runs.

Before running this macro, replace references to fullpath\filename and filename with a valid path and name for a Microsoft Office Visio VSL or executable (EXE) add-on.

Visual Basic for Applications
  
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 ("<em>fullpath\filename</em>")

'Add a ShapeAdded event to the EventList collection
'of the document. The event will start the specifed add-on, which
'should take no arguments.
Set vsoEventList = ThisDocument.EventList 
Set vsoEvent = vsoEventList.Add(visEvtAdd + visEvtShape, visActCodeRunAddon, _ 
    "<em>filename</em>", "") 

End Sub

See Also