返回或设置一个 String 值，表明在 Undo 事件发生时，哪个宏、事件过程或用户定义函数执行。可读写。

expression.OnUndo

expression     必需。返回“应用于”列表中的一个对象的表达式。

说明

该属性的有效值为“macroname”（宏的名称）、“[Event Procedure]”（表明于指定的对象的 Undo 事件有关的事件过程）或“=functionname()”（为用户定义函数的名称）。有关事件过程的详细讨论，请参阅“事件属性”。

示例

下面的示例指定在当前项目的第一个窗体上 Undo 事件发生时，应执行相关的事件过程。

Forms(0).OnUndo = "[Event Procedure]"

下面的示例指定，在当前项目第一个窗体上的任意文本框中 Undo 事件发生时，应执行相关的事件过程。

Dim ctlLoop As Control

For Each ctlLoop In Forms(0).Controls

    If ctlLoop.Type = acTextBox Then

        ctlLoop.OnUndo = "[Event Procedure]"

    End If

Next ctlLoop