Application.OpenUndoTransaction 方法 (Project)

为一系列操作创建撤消事务集。

语法

expression. OpenUndoTransaction( _Label_, _guid_ )

expression：表示 Application 对象的变量。

参数

名称	必需/可选	数据类型	说明
Label	必需	String	显示在 "撤消事务" 命令的下拉列表中的名称。
guid	可选	Variant	唯一标识 Label 的 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。