Método Application.AddUndoUnit (Visio)
Agrega un objeto que admite la interfaz IOleUndoUnit o IVBUndoUnit a la cola de deshacer de Microsoft Visio.
Sintaxis
expresión. AddUndoUnit (pUndoUnit)
expresión Variable que representa un objeto Application.
Parámetros
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| pUndoUnit | Obligatorio | [UNKNOWN] | Referencia a un objeto que admite la interfaz IOleUndoUnit o IVBUndoUnit. |
Valor devuelto
Nothing
Comentarios
Para obtener información sobre cómo implementar la interfaz IOleUndoUnit en el objeto, consulte el SDK de plataforma de Microsoft. Para obtener información sobre cómo implementar la interfaz IVBUndoUnit , consulte Desarrollo de soluciones de Microsoft Visio.
Ejemplo:
El procedimiento siguiente muestra cómo utilizar el método AddUndoUnit para agregar un objeto a la cola de deshacer de Visio. Cuando se agrega una forma al documento activo, el procedimiento comprueba si se agrega como consecuencia de una acción de deshacer o rehacer; si no es así, agrega una unidad de deshacer.
Este procedimiento es miembro de la clase clsParticipateInUndo, que se define en uno de los dos módulos de clase relacionados de la biblioteca de ejemplos de código en el SDK de Visio y no está pensado para ejecutarse de forma independiente. (El otro módulo de clase define la clase clsVBUndoUnits). Para obtener más información sobre estos módulos de clase, consulte el SDK de 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
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.