Método Application.OpenUndoTransaction (Project)

Cria um conjunto de transações de desfazer de uma série de operações.

Sintaxe

expressão. OpenUndoTransaction( _Label_, _guid_ )

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Label	Obrigatório	String	Nome exibido na lista suspensa do comando Undo Transaction.
guid	Opcional	Variant	GUID que identifica exclusivamente Label.

Comentários

O método OpenUndoTransaction é usado em conjunto com o método CloseUndoTransaction. Use OpenUndoTransaction e CloseUndoTransaction em um único comando ou em um grupo de comandos.

Você não pode aninhar uma operação de desfazer em outra.

Exemplo

O exemplo a seguir demonstra o uso do método OpenUndoTransaction para criar um conjunto de transações de desfazer. Após executar a macro, a tarefa chamada tarefa fora da transação mostra como o item de Tarefa inserir na lista suspensa Desfazer na barra de Ferramentas de acesso rápido. As tarefas de seis denominadas UndoMe 1 a 6 UndoMe mostram como criar 6 tarefas na lista Desfazer.

Sub CreateTasksWithUndoTransaction() 
    ActiveProject.Tasks.Add "Task outside transaction" 
    Application.OpenUndoTransaction "Create 6 tasks" 
    Dim i As Integer 
    For i = 1 To 6 
        ActiveProject.Tasks.Add "UndoMe " & i 
    Next 
    Application.CloseUndoTransaction  
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.