Méthode Document.Undo (Publisher)

Article
04/07/2023

Annule la dernière action ou un nombre spécifié d'actions. Correspond à la liste des éléments qui s’affiche lorsque vous choisissez la flèche en regard du bouton Annuler de la barre d’outils Standard .

Syntaxe

expression. Annuler (Nombre)

Expression Variable qui représente un objet Document .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Count	Facultatif	Long	Spécifie le nombre d'actions à annuler. La valeur par défaut est 1, ce qui signifie qu’en cas d’omission seule la dernière action est annulée.

Remarques

Si elle est appelée lorsqu’il n’y a aucune action sur la pile d’annulation, ou lorsque Count est supérieur au nombre d’actions qui résident actuellement sur la pile, la méthode Undo annule autant d’actions que possible et ignore le reste.

Le nombre maximal d’actions pouvant être annulées dans un appel à Undo est de 20.

Exemple

L’exemple suivant utilise la méthode Undo pour annuler les actions qui ne répondent pas à des critères spécifiques.

La partie 1 de l'exemple ajoute une forme de légende rectangulaire à la quatrième page de la composition active et du texte est ajouté à la légende. Ce processus crée trois actions.

Partie 2 de l'exemple vérifie si la police du texte ajouté à la légende est Verdana. Si ce n’est pas le cas, la méthode Undo est utilisée pour annuler toutes les actions disponibles (la valeur de la propriété UndoActionsAvailable est utilisée pour spécifier que toutes les actions doivent être annulées). Cette option supprime toutes les actions de la pile. Une nouvelle forme rectangle et un nouveau cadre de texte sont ensuite ajoutés, et le cadre de texte est rempli avec du texte Verdana.

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

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.

Partager via