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

Propriedade Shape.PersistsEvents (Visio)Shape.PersistsEvents Property (Visio)

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

Indica se um objeto é capaz de conter eventos persistentes na sua coleção EventList . Somente leitura.Indicates whether an object is capable of containing persistent events in its EventList collection. Read-only.

SintaxeSyntax

expressão . PersistsEventsexpression . PersistsEvents

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

Valor retornadoReturn Value

InteiroInteger

ComentáriosRemarks

Cada objeto que tenha uma propriedade EventList também tem uma propriedade PersistsEvents . Para ser persistente, o código de ação de um evento deve ser visActCodeRunAddon , mas também deve estar na coleção EventList de um objeto cuja propriedade PersistsEvents é True . Os únicos objetos que persistem atualmente eventos são objetos de documentomestre e página .Every object that has an EventList property also has a PersistsEvents property. To be persistable, an event's action code must be visActCodeRunAddon , but it must also be in the EventList collection of an object whose PersistsEvents property is True . The only objects that currently persist events are Document , Master , and Page objects.

Se um evento persistente realmente irá persistir depende do valor de sua propriedade Persistent .Whether a persistable event actually does persist depends on the value of its Persistent property.

ExemploExample

Este Microsoft Visual Basic for Applications (VBA) macro mostra como usar a propriedade PersistsEvents para determinar se um objeto é capaz de conter eventos persistentes. Executar a macro imprime 1 ( True ), 0 ( Falso ) na janela imediata e 1 ( True ) para o documento , página e objetos de janela , respectivamente.This Microsoft Visual Basic for Applications (VBA) macro shows how to use the PersistsEvents property to determine if an object is capable of containing persistent events. Executing the macro prints 1 ( True ), 1 ( True ), and 0 ( False ) in the Immediate window for the Document , Page , and Window objects, respectively.


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
© 2018 Microsoft