title | ms.service | api_name | ms.assetid | ms.date | ms.localizationpriority | |
---|---|---|---|---|---|---|
Application.OpenUndoTransaction method (Project) |
project-server |
|
b94b2c87-786c-46d6-50d3-d20614493f8f |
06/08/2017 |
medium |
Create an undo transaction set for a series of operations.
expression. OpenUndoTransaction
( _Label_
, _guid_
)
expression A variable that represents an Application object.
Name | Required/Optional | Data type | Description |
---|---|---|---|
Label | Required | String | Name that appears in the drop-down list for the Undo Transaction command. |
guid | Optional | Variant | GUID that uniquely identifies Label. |
The OpenUndoTransaction method is used in conjunction with CloseUndoTransaction method. Use OpenUndoTransaction and CloseUndoTransaction on a single command or on a group of commands.
You cannot nest one undo transaction within another.
The following example demonstrates using the OpenUndoTransaction method to create an undo transaction set. After you run the macro, the task named Task outside transaction shows as the item Insert Task in the Undo drop-down list on the Quick Access Toolbar. The six tasks named UndoMe 1 to UndoMe 6 show as Create 6 tasks in the Undo list.
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
[!includeSupport and feedback]