InvisibleApp. UndoEnabled-Eigenschaft (Visio)InvisibleApp.UndoEnabled property (Visio)

Bestimmt, ob die Informationen zum Rückgängigmachen im Speicher aufbewahrt werden.Determines whether undo information is maintained in memory. Lese-/Schreibzugriff.Read/write.

SyntaxSyntax

Ausdruck. UndoEnabledexpression.UndoEnabled

Ausdruck Eine Variable, die ein InvisibleApp -Objekt darstellt.expression A variable that represents an InvisibleApp object.

RückgabewertReturn value

BooleschBoolean

BemerkungenRemarks

Beim Starten von Microsoft Visio hat die UndoEnabled-Eigenschaft den Wert True.When Microsoft Visio starts, the value of the UndoEnabled property is True. Wenn Sie den Wert der UndoEnabled-Eigenschaft auf False festlegen, werden die Informationen zum Rückgängigmachen nicht mehr im Speicher aufbewahrt, und die vorhandenen Informationen zum Rückgängigmachen werden gelöscht.Setting the value of the UndoEnabled property to False discontinues the collection of undo information in memory and clears the existing undo information.

Versuchen Sie, den aktuellen Wert der Eigenschaft während des gesamten von Ihnen ausgeführten Vorgangs beizubehalten, d. h.You should attempt to maintain the property at its current value across the complete operation that you perform. verwenden Sie Code, der wie folgt strukturiert ist:In other words, use code structured like this:

blsPrevious = Application.UndoEnabled 
Application.UndoEnabled = False 
 
'Large operation here 
Application.UndoEnabled = blsPrevious 

BeispielExample

Das folgende VBA-Makro (Microsoft Visual Basic for Applications) zeigt, wie Sie mit der UndoEnabled -Methode das rückgängig-Verhalten in Visio deaktivieren und anschließend wieder aktivieren.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

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.