Propiedad InvisibleApp.IsUndoingOrRedoing (Visio)

Determina si se llama al controlador de eventos actual como resultado de una acción Deshacer o Rehacer en la aplicación. Solo lectura.

Sintaxis

expresión. IsUndoingOrRedoing

Expresión Variable que representa un objeto InvisibleApp .

Valor devuelto

Booleano

Comentarios

La propiedad IsUndoingOrRedoing devuelve True cuando la aplicación desencadena eventos relacionados con una acción Undo o Redo que ha iniciado el usuario en la interfaz de usuario, o que ha iniciado un cliente de automatización llamando al método Undo o Redo de un objeto Application.

Cuando la aplicación llama a un controlador de eventos, el evento tiene una "causa". Si esa causa es una acción del usuario u otro controlador de eventos, es legítimo realizar acciones deshacer durante el control de ese evento. Sin embargo, si la causa del desencadenamiento del evento es una acción Undo o Redo, el controlador de eventos no debería realizar acciones que se puedan deshacer. De este modo se descarta la posibilidad de rehacer la acción.

Normalmente, solo realizará acciones que se pueden deshacer en un controlador de eventos cuando esta propiedad sea False. Aunque es posible realizar acciones que se pueden deshacer cuando la marca es True, se destruye la cola de rehacer.

Ejemplo:

Este ejemplo agrega una forma a un dibujo y, a continuación, comprueba si ésta se ha agregado como consecuencia de una acción Undo o Redo.

 
Public Sub IsUndoingOrRedoing_Example() 
 
Dim vsoShape As Visio.Shape 
 
 'Draw a shape to trigger the ShapeAdded event 
 Set vsoShape = ActivePage.DrawRectangle(1,2,2,1) 
 
End Sub

 
Sub Document_ShapeAdded(ByVal Shape As IVShape) 
 
 If Not Application.IsUndoingOrRedoing Then 
 
 Debug.Print "Shape was added by new action." 
 
 End If 
 
End Sub

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.