Propriété Application.IsUndoingOrRedoing (Visio)

Détermine si le gestionnaire d’événements actuel est appelé à la suite d’une action Annuler ou Rétablir dans l’application. En lecture seule.

Syntaxe

expression. IsUndoingOrRedoing

expressionUne variable qui représente un objetApplication.

Valeur renvoyée

Booléen

Remarques

La propriété IsUndoingOrRedoing renvoie la valeur True lorsque l'application déclenche des événements liés à une action Undo ou Redo lancée par l'interface utilisateur ou par un client Automation en appelant la méthode Undo ou Redo d'un objet Application.

Lorsque l’application appelle un gestionnaire d’événements, l’événement a une « cause ». Si cette cause est une action de l’utilisateur ou un autre gestionnaire d’événements, il est légitime d’effectuer des actions annulables au cours de la gestion de cet événement. En revanche, si l'événement est déclenché par une action Undo ou Redo, le gestionnaire d'événement ne doit pas effectuer d'actions annulables. Sinon, il n'est plus possible de rétablir une action.

Habituellement, vous ne réaliserez d'actions annulables que dans un gestionnaire d'événement lorsque la valeur de cette propriété est False. Vous pouvez effectuer des actions annulables lorsque la valeur de l'indicateur est True, mais la liste des opérations à rétablir est supprimée.

Exemple

Cet exemple ajoute une forme à un dessin, puis vérifie si la forme a été ajoutée suite à une action Undo ou Redo.

 
Public Sub IsUndoingOrRedoing_Example() 
 
Dim vsoShape As Visio.Shape 
 
 'Draw a shape to trigger the ShapeAdded event 
 Set vsoShape = ActivePage.DrawRectangle(1,2,2,1) 
 
End Sub

 
Sub Document_ShapeAdded(ByVal Shape As IVShape) 
 
 If Not Application.IsUndoingOrRedoing Then 
 
 Debug.Print "Shape was added by new action." 
 
 End If 
 
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.