Propriedade Layers.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 Layers .
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.