Méthode InvisibleApp.Redo (Visio)

Inverse la dernière unité d’annulation.

Syntaxe

expression. Refaire

Expression Variable qui représente un objet InvisibleApp .

Valeur renvoyée

Nothing

Remarques

Pour annuler l'effet de la méthode Undo, utilisez la méthode Redo. Par exemple, si vous effacez un élément, puis le restaurez à l'aide de la méthode Undo, utilisez la méthode Redo pour l'effacer de nouveau.

Vous ne pouvez pas appeler la méthode Redo depuis un code qui s'exécute à l'intérieur de la portée d'une unité d'annulation ouverte. Un code s'exécute à l'intérieur de la portée d'une unité d'annulation ouverte s'il correspond à l'une des descriptions suivantes :

• une macro ou un module complémentaire appelé par l'interface utilisateur Microsoft Visio ;

• dans un gestionnaire d’événement répondant à un événement Visio autre que VisioIsIdle ;

• dans une portée d’annulation créée par l’utilisateur. Si vous appelez la méthode Redo depuis un code à l'intérieur de la portée d'une unité d'annulation ouverte, une exception est générée.

La méthode Redo génère également une exception si l'instance de Visio effectue actuellement une opération d'annulation ou de rétablissement. Pour déterminer si l’instance Visio est en cours d’annulation ou de rétablissement, utilisez la propriété IsUndoingOrRedoing .

Vous pouvez appeler la méthode Redo depuis le gestionnaire d'événement VisioIsIdle car l'événement VisioIsIdle ne peut être déclenché que lorsque la propriété IsUndoingOrRedoing a la valeur False. Vous pouvez également appeler la méthode Redo depuis un code non appelé par l'instance de Visio, par exemple, un code appelé par l'éditeur Microsoft Visual Basic ou par un programme externe.

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) indique comment annuler et rétablir des actions.

 
Public Sub Redo_Example() 
 
 Dim vsoShape As Visio.Shape 
 
 'Draw a rectangle, use Undo to delete it, and 
 'then use Redo to redraw it. 
 Set vsoShape = ActivePage.DrawRectangle(1, 5, 5, 1) 
 
 'Delete the shape. 
 Visio.Application.Undo 
 
 'Bring it back. 
 Visio.Application.Redo 
 
End Sub

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.