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.