Метод Application.OpenUndoTransaction (Project)

Создайте набор отменных транзакций для серии операций.

Синтаксис

выражение. OpenUndoTransaction( _Label_, _guid_ )

выражение: переменная, представляющая объект Application.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Label	Обязательный	String	Имя, которое отображается в раскрывающемся списке для команды "Отменить транзакцию ".
GUID	Необязательный	Variant	GUID, который однозначно идентифицирует метку.

Примечания

Метод OpenUndoTransaction используется в сочетании с методом CloseUndoTransaction . Используйте OpenUndoTransaction и CloseUndoTransaction для одной команды или для группы команд.

Невозможно вложить одну отмену в другую.

Пример

В следующем примере показано использование метода OpenUndoTransaction для создания набора отмен транзакций. После запуска макроса задача с именем "Задача вне транзакции " отображается как элемент "Вставить задачу " в раскрывающемся списке " Отмена " на панели быстрого доступа. Шесть задач с именами UndoMe 1 – UndoMe 6 отображаются как "Создать 6 задач " в списке "Отменить ".

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.