Propriedade Windows. EventList (Visio)Windows.EventList property (Visio)

Retorna a **** coleção EventList de um objeto ou da **** coleção EventList que contém um objeto Event .Returns the EventList collection of an object or the EventList collection that contains an Event object. Somente leitura.Read-only.

SintaxeSyntax

expressão. EventListexpression.EventList

expressão Uma variável que representa um objeto Windows .expression A variable that represents a Windows object.

Valor de retornoReturn value

EventListEventList

ExemploExample

Esta macro do Microsoft Visual Basic for Applications (VBA) mostra como usar **** a propriedade EventList para adicionar um objeto Event à **** coleção EventList de um objeto Document .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. Quando o objeto Event for disparado adicionando uma forma ao documento, o complemento VSL especificado é executado.When the Event object is triggered by adding a shape to the document, the VSL add-on you specify runs.

Antes de executar essa macro, substitua as referências a caminhocompleto\nomedearquivo e filename por um caminho e nome válidos para um complemento do Microsoft Visio VSL ou executável (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

Suporte e comentáriosSupport and feedback

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação?Have questions or feedback about Office VBA or this documentation? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.