Propriedade Application.EventList (Visio)

Retorna a coleção EventList de um objeto ou a coleção EventList que contém um objeto Event . Somente leitura.

Sintaxe

expressão. EventList

expressão Uma variável que representa um Aplicativo objeto.

Valor de retorno

EventList

Exemplo

Essa 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. Quando o objeto Event é disparado adicionando uma forma ao documento, o complemento VSL que você especificar é executado.

Antes de executar essa macro, substitua as referências para fullpath\filename e filename por um caminho e nome válidos para um complemento do MICROSOFT Visio VSL ou EXE (executável).

 
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ários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? 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.