Application.Redo-Methode (Visio)

Kehrt die letzte Rückgängig-Komponente um.

Syntax

Ausdruck. Wiederholen

expression Eine Variable, die ein Application-Objekt darstellt.

Rückgabewert

Nichts

Bemerkungen

Verwenden Sie zum Umkehren der Auswirkungen der Undo-Methode die Redo-Methode. Wenn Sie z. B. ein Element löschen und es dann mit der Undo-Methode wiederherstellen, verwenden Sie die Redo-Methode, um das Element erneut zu löschen.

Sie können die Redo-Methode nicht über Code aufrufen, der im Bereich einer geöffneten Rückgängig-Komponente ausgeführt wird. Code befindet sich im Bereich einer geöffneten Rückgängig-Komponente, wenn es sich dabei um Folgendes handelt:

• Ein von der Microsoft Visio-Benutzeroberfläche aufgerufenes Makro oder Add-On.

• Wenn es sich bei dem Code um einen Ereignishandler handelt, der auf ein anderes Visio-Ereignis außer VisioIsIdle reagiert.

• Einen Bestandteil eines vom Benutzer erstellten Rückgängig-Bereichs. Wenn Sie die Redo-Methode über Code im Bereich einer geöffneten Rückgängig-Komponente aufrufen, wird eine Ausnahme ausgelöst.

Von der Redo-Methode wird auch eine Ausnahme ausgelöst, wenn die Visio-Instanz gerade eine Rückgängig- oder Wiederholen-Aktion ausführt. Mithilfe der IsUndoingOrRedoing-Eigenschaft können Sie bestimmen, ob die Visio-Instanz gerade eine Rückgängig- oder Wiederholen-Aktion ausführt.

Sie können die Redo-Methode über den VisioIsIdle-Ereignishandler aufrufen, da das VisioIsIdle-Ereignis nur ausgelöst werden kann, wenn die IsUndoingOrRedoing-Eigenschaft False ist. Sie können die Redo-Methode auch über Code aufrufen, der nicht von einer Visio-Instanz aufgerufen wurde, z. B. Code, der vom Visual Basic-Editor oder von einem externen Programm aufgerufen wurde.

Beispiel

Mit diesem VBA-Makro (Microsoft Visual Basic für Applikationen) wird gezeigt, wie Aktionen rückgängig gemacht und wiederholt werden.

 
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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.