Application.Redo 方法 (Visio)

取消最近的撤消单元。

语法

表达式。重新

expression：表示 Application 对象的变量。

返回值

Nothing

注解

要取消 Undo 方法的效果，请使用 Redo 方法。 例如，如果您清除了一个项目，然后使用 Undo 方法恢复了该项目，则使用 Redo 方法将再次清除该项目。

您无法从在打开的撤消单元范围内执行的代码调用 Redo 方法。 在下列任一情况下，代码位于打开的撤消单元范围中：

• 由 Microsoft Visio 用户界面调用宏或加载项。

• 事件处理程序响应 Visio 事件而不是 VisioIsIdle 事件。

• 在用户创建的撤消范围中。 如果从打开的撤消单元范围内的代码调用 Redo 方法，将引发异常。

如果 Visio 实例当前正在执行撤消或恢复动作，Redo 方法也会引发异常。 要确定 Visio 实例是否正在撤消或恢复，请使用 IsUndoingOrRedoing 属性。

您可以从 VisioIsIdle 事件处理程序调用 Redo 方法，因为仅当 IsUndoingOrRedoing 属性为 False 时才能触发 VisioIsIdle 事件。 您也可以从非 Visio 实例调用的代码（例如，从 Visual Basic 编辑器或从外部程序调用的代码）调用 Redo 方法。

示例

以下 Microsoft Visual Basic for Applications (VBA) 宏显示如何撤消和恢复动作。

 
Public Sub Redo_Example() 
 
 Dim vsoShape As Visio.Shape 
 
 'Draw a rectangle, use Undo to delete it, and 
 'then use Redo to redraw it. 
 Set vsoShape = ActivePage.DrawRectangle(1, 5, 5, 1) 
 
 'Delete the shape. 
 Visio.Application.Undo 
 
 'Bring it back. 
 Visio.Application.Redo 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。