Método Document.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 Document .
Parameters
| 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 más información sobre la implementación de la interfaz IOleUndoUnit en un objeto, vea Microsoft Platform SDK en MSDN (Microsoft Developer Network). Para obtener más información sobre la implementación de la interfaz IVBUndoUnit, vea "Developing Microsoft Visio Solutions" en MSDN.
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 en 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
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.