Ejemplo de métodos CanUndo, propiedades de CanRedo, UndoAction, RedoAction
En el ejemplo siguiente se muestra cómo deshacer o rehacer la edición de texto dentro de un cuadro de texto o dentro del área de texto de un ComboBox. En el ejemplo se comprueba si puede producirse una operación de deshacer o rehacer y se realiza la acción correspondiente. En el ejemplo se usan las propiedades CanUndo y CanRedo y los métodos UndoAction y RedoAction .
Para usar este ejemplo, copie este código de muestra en la parte Declaraciones de un formulario. Asegúrese de que el formulario contiene:
- Un control TextBox denominado TextBox1.
- Un control ComboBox denominado ComboBox1.
- Dos controles CommandButton denominados CommandButton1 y 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
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.