Méthode Document.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)
Expression Variable qui représente un objet Document .
Parameters
| 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, reportez-vous au Kit de développement Platform SDK de Microsoft sur le site Web MSDN (Microsoft Developer Network) de Microsoft. Pour plus d'informations sur l'implémentation de l'interface IVBUndoUnit, reportez-vous aux solutions « Developing Microsoft Visio Solutions » (en anglais) sur le site Web MSDN.
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 sur MSDN.
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.