Compartilhar via


Propriedade Styles.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 objeto Styles .

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.