Document.RedoActionsAvailable-Eigenschaft (Publisher)
Gibt die Anzahl der verfügbaren Aktionen auf Redo-Stapel zurück. Schreibgeschützter langer Wert.
Syntax
Ausdruck. RedoActionsAvailable
Ausdruck Eine Variable, die ein Document-Objekt darstellt.
Rückgabewert
Long
Beispiel
Das folgende Beispiel fügt der vierten Seite der aktiven Publikation ein Rechteck mit einem Textrahmen hinzu. Einige Schriftarteigenschaften und der Text des Textrahmens werden festgelegt. Dann wird ein Test ausgeführt, um zu ermitteln, ob die im Textrahmen verwendete Schriftart Courier ist. Falls ja, wird die Undo -Methode verwendet, wobei der Wert der UndoActionsAvailable -Eigenschaft als Parameter übergeben wird, um das Rückgängigmachen aller vorherigen Aktionen anzugeben.
Die Redo -Methode ist mit dem Wert der RedoActionsAvailable -Eigenschaft minus 2 als Parameter übergeben dann verwendet, um alle Aktionen außer den letzten beiden zu wiederholen. Schriftart wird für den Text im Textrahmen, zusätzlich zu den neuen Text angegeben.
In diesem Beispiel wird davon ausgegangen, dass das aktive Dokument mindestens vier Seiten enthält.
Dim thePage As page
Dim theShape As Shape
Dim theDoc As Publisher.Document
Set theDoc = ActiveDocument
Set thePage = theDoc.Pages(4)
With theDoc
With thePage
Set theShape = .Shapes.AddShape(msoShapeRectangle, _
75, 75, 190, 30)
With theShape.TextFrame.TextRange
.Font.Size = 12
.Font.Name = "Courier"
.Text = "This font is Courier."
End With
End With
If thePage.Shapes(1).TextFrame.TextRange.Font.Name = "Courier" Then
' The Undo method specifies that all undoable actions be undone.
.Undo (.UndoActionsAvailable)
' The Redo method uses RedoActionsAvailable - 2 to specify that
' all redoable actions be redone except for the last two actions.
' The last two actions that are not redone are setting
' .Font.Name and .Text.
.Redo (.RedoActionsAvailable - 2)
With theShape.TextFrame.TextRange
.Font.Name = "Verdana"
.Text = "This font is Verdana."
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.
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