1.Visio默认Undo和Redo操作是可用的,Appliacation中的UndoEnabled标志Undo和Redo操作是否可用. m_Visio.Window.Application.UndoEnabled = True 2.Visio中启动事务,结束事务 Dim vsoTextShape As Visio.Shape Dim UndoScopeID1 As Long UndoScopeID1 = m_Visio.Window.Application.BeginUndoScope("添加