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.