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.