InvisibleApp.UndoEnabled Property (Visio)
Determines whether undo information is maintained in memory. Read/write.
expression A variable that represents an InvisibleApp object.
When Microsoft Visio starts, the value of the UndoEnabled property is True . Setting the value of the UndoEnabled property to False discontinues the collection of undo information in memory and clears the existing undo information.
You should attempt to maintain the property at its current value across the complete operation that you perform. In other words, use code structured like this:
blsPrevious = Application.UndoEnabled Application.UndoEnabled = False 'Large operation here Application.UndoEnabled = blsPrevious
The following Microsoft Visual Basic for Applications (VBA) macro shows how to use the UndoEnabled method to disable and then re-enable undo behavior in Visio.
Public Sub UndoEnabled_Example() 'Disable undo Application.UndoEnabled = False 'Draw three shapes. ActivePage.DrawRectangle 1, 2, 2, 1 ActivePage.DrawOval 3, 4, 4, 3 ActivePage.DrawLine 4, 5, 5, 4 'Enable undo. Application.UndoEnabled = True End Sub