Document.Undo-Methode (Publisher)

Undoes the last action or a specified number of actions. Entspricht der Liste der Elemente, die angezeigt wird, wenn Sie auf der Standardsymbolleiste auf den Pfeil neben der Schaltfläche Rückgängig klicken.

Syntax

Ausdruck. Rückgängig (Anzahl)

Ausdruck Eine Variable, die ein Document-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Count	Optional	Long	Specifies the number of actions to be undone. Der Standardwert ist 1, somit wird nur die letzte Aktion rückgängig gemacht, wenn dieser Wert nicht angegeben wird.

HinwBemerkungeneise

Wenn aufgerufen wird, wenn keine Aktionen für den Rückgängig-Stapel vorhanden sind oder Wenn Count größer als die Anzahl der Aktionen ist, die sich derzeit im Stapel befinden, macht die Undo-Methode so viele Aktionen wie möglich rückgängig und ignoriert den Rest.

Die Höchstzahl von Aktionen, die durch Aufrufen von Undo rückgängig gemacht werden können, beträgt 20.

Beispiel

Im folgenden Beispiel wird die Undo-Methode verwendet, um Aktionen rückgängig zu machen, die bestimmte Kriterien nicht erfüllen.

Teil 1 des Beispiels fügt eine rechteckige Legendenform zur vierten Seite der aktiven Publikation hinzu; außerdem wird Text zur Legende hinzugefügt. Dieser Prozess erstellt drei Aktionen.

Teil 2 des Beispiels testet, ob die Schriftart des Texts der Legende hinzugefügt Verdana. Andernfalls wird die Undo-Methode verwendet, um alle verfügbaren Aktionen rückgängig zu machen (der Wert der UndoActionsAvailable-Eigenschaft wird verwendet, um anzugeben, dass alle Aktionen rückgängig werden sollen). Dadurch werden alle Aktionen vom Stapel gelöscht. Anschließend werden eine neue Rechteckform und ein Textrahmen hinzugefügt, und der Textrahmen wird mit Verdana-Text aufgefüllt.

Dim thePage As page 
Dim theShape As Shape 
Dim theDoc As Publisher.Document 
 
Set theDoc = ActiveDocument 
Set thePage = theDoc.Pages(4) 
 
With theDoc 
 ' Part 1 
 With thePage 
 ' Setting the shape creates the first action 
 Set theShape = .Shapes.AddShape(msoShapeRectangularCallout, _ 
 75, 75, 120, 30) 
 ' Setting the text range creates the second action 
 With theShape.TextFrame.TextRange 
 ' Setting the text creates the third action 
 .Text = "This text is not Verdana." 
 End With 
 End With 
 
 ' Part 2 
 If Not thePage.Shapes(1).TextFrame.TextRange.Font.Name = "Verdana" Then 
 ' UndoActionsAvailable = 3 
 .Undo (.UndoActionsAvailable) 
 With thePage 
 Set theShape = .Shapes.AddShape(msoShapeRectangle, _ 
 75, 75, 120, 30) 
 With theShape.TextFrame.TextRange 
 .Font.Name = "Verdana" 
 .Text = "This text is Verdana." 
 End With 
 End With 
 End If 
End With

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.