Propriété Document.UndoActionsAvailable (Publisher)

Renvoie le nombre d'actions disponibles sur la pile d'annulation. Long (en lecture seule).

Syntaxe

expression. UndoActionsAvailable

Expression Variable qui représente un objet Document .

Valeur renvoyée

Entier long

Exemple

L'exemple suivant ajoute un rectangle contenant un cadre de texte à la quatrième page de la composition active. Certaines propriétés de police et le texte du cadre de texte sont définis. Un test détermine ensuite si la police du cadre de texte est Courier. Si tel est le cas, la méthode Undo est utilisée avec la valeur de la propriété UndoActionsAvailable transmise sous la forme d'un paramètre pour spécifier que toutes les actions précédentes doivent être annulées.

La méthode Redo est ensuite utilisée avec la valeur de la propriété RedoActionsAvailable moins 2 transmise en tant que paramètre pour rétablir toutes les actions sauf les deux dernières. Outre du nouveau texte, une nouvelle police est spécifiée pour le texte du cadre de texte.

Cet exemple suppose que le document actif contient au moins quatre pages.

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 
 .Undo (.UndoActionsAvailable) 
 .Redo (.RedoActionsAvailable - 2) 
 With theShape.TextFrame.TextRange 
 .Font.Name = "Verdana" 
 .Text = "This font is Verdana." 
 End With 
 End If 
End With

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.