Document.EndCustomUndoAction-Methode (Publisher)
Gibt den Endpunkt einer Gruppe von gepackten Aktionen an, mit denen eine einzelne Rückgängig-Aktion erstellt wird. Die BeginCustomUndoAction-Methode wird verwendet, um den Startpunkt und die Bezeichnung (Textbeschreibung) der Aktionen anzugeben, die zum Erstellen der einzelnen Rückgängig-Aktion verwendet werden. Die gepackte Gruppe von Aktionen kann mit einem einzelnen Rückgängig-Befehl rückgängig gemacht werden.
Syntax
Ausdruck. EndCustomUndoAction
Ausdruck Eine Variable, die ein Document-Objekt darstellt.
HinwBemerkungeneise
BeginCustomUndoAction -Methode muss aufgerufen werden, bevor die EndCustomUndoAction -Methode aufgerufen wird. Wenn EndCustomUndoAction vor BeginCustomUndoAction aufgerufen wird, wird ein Laufzeitfehler zurückgegeben.
Beispiel
Das folgende Beispiel enthält zwei benutzerdefinierte Rückgängig-Aktionen. Zuerst wird auf der Seite 4 der aktiven Publikation erstellt. BeginCustomUndoAction -Methode wird verwendet, um den Punkt anzugeben, an dem die benutzerdefinierte Rückgängig-Aktion beginnen soll. Sechs einzelne Aktionen werden ausgeführt, und klicken Sie dann diese in eine Aktion mit dem Aufruf von EndCustomUndoAction umbrochen werden.
Der Text in dem Textrahmen, der in der ersten benutzerdefinierten Rückgängig-Aktion erstellt wurde, wird getestet, um zu ermitteln, ob es sich bei der Schriftart um Verdana handelt. Ist dies nicht der Fall, wird die Undo -Methode aufgerufen und UndoActionsAvailable als Parameter weitergegeben. In diesem Fall ist nur eine Rückgängig-Aktion verfügbar. Folglich wird mit dem Aufruf von Undo nur eine Aktion rückgängig gemacht, die allerdings aus sechs Aktionen besteht, die in diese einzelne Aktion gepackt wurden.
Im Anschluss daran wird eine zweite Rückgängig-Aktion erstellt, die zu einem späteren Zeitpunkt ebenfalls mit einem einzelnen Rückgängig-Vorgang rückgängig gemacht werden kann.
In diesem Beispiel wird davon ausgegangen, dass die aktive Publikation aus mindestens vier Seiten besteht.
Dim thePage As page
Dim theShape As Shape
Dim theDoc As Publisher.Document
Set theDoc = ActiveDocument
Set thePage = theDoc.Pages(4)
With theDoc
' The following six of actions are wrapped to create one
' custom undo action named "Add Rectangle and Courier Text".
.BeginCustomUndoAction ("Add Rectangle and Courier Text")
With thePage
Set theShape = .Shapes.AddShape(msoShapeRectangle, _
75, 75, 190, 30)
With theShape.TextFrame.TextRange
.Font.Size = 14
.Font.Bold = msoTrue
.Font.Name = "Courier"
.Text = "This font is Courier."
End With
End With
.EndCustomUndoAction
If Not thePage.Shapes(1).TextFrame.TextRange.Font.Name = "Verdana" Then
' This call to Undo will undo all actions that are available.
' In this case, there is only one action that can be undone.
.Undo (.UndoActionsAvailable)
' A new custom undo action is created with a name of
' "Add Balloon and Verdana Text".
.BeginCustomUndoAction ("Add Balloon and Verdana Text")
With thePage
Set theShape = .Shapes.AddShape(msoShapeBalloon, _
75, 75, 190, 30)
With theShape.TextFrame.TextRange
.Font.Size = 11
.Font.Name = "Verdana"
.Text = "This font is Verdana."
End With
End With
.EndCustomUndoAction
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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für