Table of contents
TOC
Recolher sumário
Expandir sumário

Propriedade Application.EventList (Visio)Application.EventList Property (Visio)

office 365 dev account|Última Atualização: 22/03/2018
|
2 Colaboradores

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

SintaxeSyntax

expressão . EventListexpression . EventList

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

Valor retornadoReturn Value

EventListEventList

ExemploExample

Este Microsoft Visual Basic for Applications (VBA) macro mostra como usar a propriedade EventList para adicionar um objeto Event à coleção EventList de um objeto Document . Quando o objeto Event é disparado com a adição de uma forma ao documento, executa o complemento VSL que você especificar.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.

Antes de executar essa macro, substitua as referências para caminhocompleto\nomedearquivo e NomeDeArquivo por um caminho válido e nome de um Microsoft Visio VSL ou complemento 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 specifed add-on, which 
 'should take no arguments. 
 Set vsoEventList = ThisDocument.EventList 
 Set vsoEvent = vsoEventList.Add(visEvtAdd + visEvtShape, visActCodeRunAddon, _ 
 "filename ", "") 

End Sub
© 2018 Microsoft