Compartilhar via


Propriedade Shapes.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 objeto Formas.

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 for disparado adicionando uma forma ao documento, o complemento VSL especificado é executado.

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

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.