Propriedade Shape.EventList (Visio)

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

Sintaxe

mais simples. EventList

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

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.