Compartilhar via


Propriedade Application.PersistsEvents (Visio)

Indica se um objeto é capaz de conter eventos persistentes em sua coleção EventList . Somente leitura.

Sintaxe

expressão. PersistsEvents

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

Valor de retorno

Inteiro

Comentários

Todo objeto que possui uma propriedade EventList também possui uma propriedade PersistsEvents. Para ser persistente, o código de ação de um evento deve ser visActCodeRunAddon, mas ele também deve estar na coleção EventList de um objeto cuja propriedade PersistsEvents é True. Os únicos objetos que atualmente são eventos persistentes são os objetos Document, Master e Page.

Se um evento persistente realmente irá persistir depende do valor de sua propriedade Persistent.

Exemplo

Essa macro do Microsoft Visual Basic for Applications (VBA) mostra como usar a propriedade PersistsEvents para determinar se um objeto pode conter eventos persistentes. A execução da macro imprime 1 (True), 1 (True) e 0 (False) na janela Imediata para os objetos Documento, Página e Janela , respectivamente.

 
Public Sub PersistsEvents_Example() 
 
 Dim vsoDocument As Visio.Document 
 
 Set vsoDocument = Documents.Add("") 
 Debug.Print vsoDocument.PersistsEvents 
 Debug.Print ActivePage.PersistsEvents 
 Debug.Print ActiveWindow.PersistsEvents 
 
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.