Compartir a través de

Método Application.Redo (Visio)

  • Artículo

Invierte el efecto de la unidad de deshacer más reciente.

Sintaxis

expresión. Rehacer

expresión Variable que representa un objeto Application.

Valor devuelto

Nothing

Comentarios

Para invertir el efecto del método Undo, utilice el método Redo. Por ejemplo, si borra un elemento y, a continuación, utiliza el método Undo para restaurarlo, utilice el método Redo para borrarlo de nuevo.

No es posible invocar el método Redo desde el código que se está ejecutando dentro del ámbito de una unidad de deshacer abierta. El código está en el ámbito de una unidad de deshacer abierta si se cumple una de estas condiciones:

  • Es una macro o un complemento invocado por la interfaz de usuario de Microsoft Visio.

  • Está en un controlador de eventos que responde a un evento de Visio distinto del evento VisioIsIdle.

  • Está en un ámbito de deshacer creado por el usuario. Si llama al método Redo desde el código que está dentro del ámbito de una unidad de deshacer abierta, se generará una excepción.

El método Redo también genera una excepción si la instancia de Visio está realizando actualmente una operación de deshacer o rehacer. Para determinar si la instancia de Visio está realizando una operación de este tipo, utilice la propiedad IsUndoingOrRedoing.

Puede llamar al método Redo desde el controlador de eventos VisioIsIdle debido a que el evento VisioIsIdle sólo se puede desencadenar cuando la propiedad IsUndoingOrRedoing es False. También puede llamar al método Redo desde código que no ha sido invocado por la instancia de Visio; por ejemplo, código invocado desde el Editor de Visual Basic o desde un programa externo.

Ejemplo:

Esta macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo deshacer y rehacer acciones.

 
Public Sub Redo_Example() 
 
 Dim vsoShape As Visio.Shape 
 
 'Draw a rectangle, use Undo to delete it, and 
 'then use Redo to redraw it. 
 Set vsoShape = ActivePage.DrawRectangle(1, 5, 5, 1) 
 
 'Delete the shape. 
 Visio.Application.Undo 
 
 'Bring it back. 
 Visio.Application.Redo 
 
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.