Método InvisibleApp.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 InvisibleApp .

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

clsVBUndoUnits

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.