Método Application.AddUndoUnit (Visio)
Adiciona um objeto que dá suporte à interface IOleUndoUnit ou IVBUndoUnit à fila de desfazer do Microsoft Visio.
Sintaxe
expressão. AddUndoUnit (pUndoUnit)
expressão Uma variável que representa um Aplicativo objeto.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| pUndoUnit | Obrigatório | [DESCONHECIDO] | Uma referência a um objeto que dá suporte à interface IOleUndoUnit ou IVBUndoUnit. |
Valor de retorno
Nada
Comentários
Para obter informações sobre como implementar a interface IOleUndoUnit em seu objeto, consulte o SDK da Plataforma Microsoft. Para obter informações sobre como implementar a interface IVBUndoUnit , consulte Desenvolvendo soluções do Microsoft Visio.
Exemplo
O procedimento a seguir mostra como usar o método AddUndoUnit para adicionar um objeto à fila de desfazer do Visio. 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.
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. (O outro módulo de classe define a classe clsVBUndoUnits.) Para obter mais informações sobre esses módulos de classe, consulte o SDK do 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
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? 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.