CanUndo, CanRedo Properties, UndoAction, RedoAction Methods Example - PowerPoint

The following example demonstrates how to undo or redo text editing within a text box or within the text area of a ComboBox. This sample checks whether an undo or redo operation can occur and then performs the appropriate action. The sample uses the CanUndo and CanRedo properties, and the UndoAction and RedoAction methods.

To use this example, copy this sample code to the Declarations portion of a form. Make sure that the form contains:

A TextBox named TextBox1.
A ComboBox named ComboBox1.
Two CommandButton controls named CommandButton1 and CommandButton2.

Private Sub CommandButton1_Click() If UserForm1.CanUndo = True Then UserForm1.UndoAction MsgBox "Undid IT" Else MsgBox "No undo performed." End If End Sub Private Sub CommandButton2_Click() If UserForm1.CanRedo = True Then UserForm1.RedoAction MsgBox "Redid IT" Else MsgBox "No redo performed." End If End Sub Private Sub UserForm_Initialize() TextBox1.Text = "Type your text here." ComboBox1.ColumnCount = 3 ComboBox1.AddItem "Choice 1, column 1" ComboBox1.List(0, 1) = "Choice 1, column 2" ComboBox1.List(0, 2) = "Choice 1, column 3" CommandButton1.Caption = "Undo" CommandButton2.Caption = "Redo" End Sub