Propriedade Application.EventsEnabled (Visio)Application.EventsEnabled Property (Visio)

Determina se uma instância do Microsoft Visio dispara eventos.Determines whether a Microsoft Visio instance fires events. Leitura/gravação.Read/write.

SintaxeSyntax

expression.expression. EventsEnabled

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

Valor de retornoReturn value

InteiroInteger

ComentáriosRemarks

Se a propriedade EventsEnabled for False , o Visio não disparar eventos, executará complementos ou executará cadeias de caracteres que contenham arbitrário código Visual Basic for Applications (VBA) ao avaliar operandos RUNADDON em fórmulas de células.If the EventsEnabled property is False , Visio does not fire events, run add-ons, or execute strings that contain arbitrary Visual Basic for Applications (VBA) code when evaluating RUNADDON operands in cell formulas.

Por padrão, a propriedade EventsEnabled é True quando uma instância do Visio é iniciado.By default, the EventsEnabled property is True when an instance of Visio starts.

Você talvez queira desabilitar o evento disparando se você escreveu código para lidar com eventos como DocumentOpened ou DocumentCreated que não esteja funcionando corretamente, ou para impedir a incorporação de um vírus em um documento.You may want to disable event firing if you have written code to handle events such as DocumentOpened or DocumentCreated that does not work properly, or to prevent the incorporation of a virus into a document. Não acionará eventos, até que a propriedade EventsEnabled é definida como True.Events will not fire until the EventsEnabled property is set to True.

ExemploExample

Estas macros VBA mostram como usar a propriedade EventsEnabled para suspender e reiniciar o processamento de eventos.These VBA macros show how to use the EventsEnabled property to suspend and resume event processing.

 
Public Sub SuspendEventProcessing_Example() 
 
 'Suspend event processing. 
 Application.EventsEnabled = False 
 End Sub 
 
Public Sub EventsEnabled_Example() 
 
 'Resume event processing. 
 Application.EventsEnabled = True 
 
End Sub