Freigeben über


Application.AddUndoUnit-Methode (Visio)

Fügt der Rückgängig-Warteschlange von Microsoft Visio ein Objekt hinzu, das die IOleUndoUnit - oder IVBUndoUnit-Schnittstelle unterstützt.

Syntax

Ausdruck. AddUndoUnit (pUndoUnit)

expression Eine Variable, die ein Application-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
pUndoUnit Erforderlich [UNBEKANNT] Ein Verweis auf ein Objekt, das die IOleUndoUnit- oder die IVBUndoUnit-Schnittstelle unterstützt.

Rückgabewert

Nichts

Bemerkungen

Informationen zum Implementieren der IOleUndoUnit-Schnittstelle für Ihr Objekt finden Sie im Microsoft Platform SDK. Informationen zum Implementieren der IVBUndoUnit-Schnittstelle finden Sie unter Entwickeln von Microsoft Visio-Lösungen.

Beispiel

Das folgende Verfahren zeigt, wie Sie die AddUndoUnit-Methode verwenden, um der Visio-Rückgängig-Warteschlange ein Objekt hinzuzufügen. Wenn dem aktiven Dokument ein Shape hinzugefügt wird, überprüft die Prozedur, ob es als Ergebnis einer Rückgängig- oder Wiederholungsaktion hinzugefügt wurde. Andernfalls wird eine Rückgängig-Einheit hinzugefügt.

Diese Prozedur ist ein Element der clsParticipateInUndo-Klasse, die in einer von zwei verwandten Klassenmodulen in der Codebeispielbibliothek im Visio SDK definiert wird und nicht unabhängig ausgeführt werden soll. (Das andere Klassenmodul definiert die Klasse clsVBUndoUnits.) Weitere Informationen zu diesen Klassenmodulen finden Sie im Visio SDK.

 
Private Sub mvsoDocument_ShapeAdded(ByVal vsoShape As IVShape) 
 
 Dim VBUndoUnit As clsVBUndoUnits 
 
 On Error GoTo mvsoDocument_ShapeAdded_Err 
 
 If Not (mvsoApplication Is Nothing) Then 
 
 If Not msvoApplication.IsUndoingOrRedoing Then 
 
 'Increment the count of undoable actions. 
 IncrementModuleVar 
 Debug.Print "Original Do: GetModuleVar = " & GetModuleVar 
 
 'Instantiate clsVBUndoUnit, a 
 'class that implements Visio.IVBUndoUnit. 
 Set VBUndoUnit = New clsVBUndoUnits 
 
 'Pass the current instance of the class 
 'of which this procedure is a member, 
 'clsParticipateInUndo, to the Undo unit. 
 VBUndoUnit.SetModelObject Me 
 
 'Add an Undo unit. 
 mvsoApplication.AddUndoUnit VBUndoUnit 
 
 End If 
 
 End If 
 
Exit Sub 
 
mvsoDocument_ShapeAdded_Err: 
 
 MsgBox Err.Description 
 
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.