Méthode Application.AddUndoUnit (Visio)

Ajoute un objet qui prend en charge l’interface IOleUndoUnit ou IVBUndoUnit à la file d’attente d’annulation de Microsoft Visio.

Syntaxe

expression. AddUndoUnit (pUndoUnit)

expressionUne variable qui représente un objetApplication.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
pUndoUnit	Requis	[UNKNOWN]	Référence à un objet qui prend en charge l'interface IOleUndoUnit ou IVBUndoUnit.

Valeur renvoyée

Aucune

Remarques

Pour plus d’informations sur l’implémentation de l’interface IOleUndoUnit sur votre objet, consultez le Kit de développement logiciel (SDK) de la plateforme Microsoft. Pour plus d’informations sur l’implémentation de l’interface IVBUndoUnit , consultez Développement de solutions Microsoft Visio.

Exemple

La procédure suivante indique comment utiliser la méthode AddUndoUnit pour ajouter un objet à la file d'attente des annulations de Visio. Lorsqu'une forme est ajoutée au document actif, la procédure vérifie si elle a été ajoutée suite à une action d'annulation ou de rétablissement et, si ce n'est pas le cas, elle ajoute une unité d'annulation.

Cette procédure est un membre de la classe clsParticipateInUndo, qui est définie dans un ou deux modules de classe dans la Bibliothèque des exemples de code du Kit de développement Platform SDK de Visio, et n’est pas prévue pour être exécutée indépendamment. (L’autre module de classe définit la classe clsVBUndoUnits.) Pour plus d’informations sur ces modules de classe, consultez le Kit de développement logiciel (SDK) Visio.

 
Private Sub mvsoDocument_ShapeAdded(ByVal vsoShape As IVShape) 
 
 Dim VBUndoUnit As clsVBUndoUnits 
 
 On Error GoTo mvsoDocument_ShapeAdded_Err 
 
 If Not (mvsoApplication Is Nothing) Then 
 
 If Not msvoApplication.IsUndoingOrRedoing Then 
 
 'Increment the count of undoable actions. 
 IncrementModuleVar 
 Debug.Print "Original Do: GetModuleVar = " & GetModuleVar 
 
 'Instantiate clsVBUndoUnit, a 
 'class that implements Visio.IVBUndoUnit. 
 Set VBUndoUnit = New clsVBUndoUnits 
 
 'Pass the current instance of the class 
 'of which this procedure is a member, 
 'clsParticipateInUndo, to the Undo unit. 
 VBUndoUnit.SetModelObject Me 
 
 'Add an Undo unit. 
 mvsoApplication.AddUndoUnit VBUndoUnit 
 
 End If 
 
 End If 
 
Exit Sub 
 
mvsoDocument_ShapeAdded_Err: 
 
 MsgBox Err.Description 
 
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.