Método Application. AddUndoUnit (Visio)Application.AddUndoUnit method (Visio)

Adiciona um objeto que dá suporte à interface IOleUndoUnit ou IVBUndoUnit à fila de desfazer do Microsoft Visio.Adds an object that supports the IOleUndoUnit or IVBUndoUnit interface to the Microsoft Visio undo queue.

SintaxeSyntax

expressão. AddUndoUnit (pUndoUnit)expression.AddUndoUnit (pUndoUnit)

expressão Uma variável que representa um Aplicativo objeto.expression A variable that represents an Application object.

ParâmetrosParameters

NomeName Obrigatório/OpcionalRequired/Optional Tipo de dadosData type DescriçãoDescription
pUndoUnitpUndoUnit ObrigatórioRequired Unknown[UNKNOWN] Uma referência a um objeto que dá suporte à interface IOleUndoUnit ou IVBUndoUnit.A reference to an object that supports the IOleUndoUnit or IVBUndoUnit interface.

Valor de retornoReturn value

NadaNothing

ComentáriosRemarks

Para obter informações sobre como implementar a interface IOleUndoUnit em seu objeto, consulte o SDK da plataforma Microsoft.For information about implementing the IOleUndoUnit interface on your object, see the Microsoft Platform SDK. Para obter informações sobre como implementar a interface IVBUndoUnit , consulte Developing Microsoft Visio Solutions.For information about implementing the IVBUndoUnit interface, see Developing Microsoft Visio Solutions.

ExemploExample

O procedimento a seguir mostra como usar o método AddUndoUnit para adicionar um objeto à fila de desfazer do Visio.The following procedure shows how to use the AddUndoUnit method to add an object to the Visio undo queue. Quando uma forma é adicionada ao documento ativo, o procedimento verifica se ela foi adicionada como resultado de uma ação de desfazer ou de refazer e, em caso negativo, adiciona uma unidade de desfazer.When a shape is added to the active document, the procedure checks to see if it was added as a result of an undo or redo action, and if not, it adds an Undo unit.

Esse procedimento é um membro da classe clsParticipateInUndo, que é definida em um ou dois módulos de classe relacionados na Biblioteca de Amostras de Código do SDK do Visio e que não se destina à execução independente.This procedure is a member of class clsParticipateInUndo, which is defined in one of two related class modules in the Code Samples Library in the Visio SDK, and is not intended to be run independently. (O outro módulo de classe define a classe clsVBUndoUnits.) Para obter mais informações sobre esses módulos de classe, consulte o Visio SDK.(The other class module defines class clsVBUndoUnits.) For more information about these class modules, see the Visio SDK.

 
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

Suporte e comentáriosSupport and feedback

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação?Have questions or feedback about Office VBA or this documentation? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.