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.