Change the Accelerator and Caption of a Command Button
This example changes the Accelerator and Caption properties of a CommandButton each time the user clicks the button by using the mouse or the accelerator key. The Click event contains the code to change the Accelerator and Caption properties.
To try this example, paste the code into the Script Editor of a form containing a CommandButton named CommandButton1. To run the code you need to open the form so the Open event will activate.
Dim CommandButton1
Sub Item_Open()
Set CommandButton1 = Item.GetInspector.ModifiedFormPages("P.2").CommandButton1
CommandButton1.Accelerator = "C" 'Set Accelerator key to ALT + C
End Sub
Sub CommandButton1_Click ()
If CommandButton1.Caption = "OK" Then 'Check caption, then change it.
CommandButton1.Caption = "Clicked"
CommandButton1.Accelerator = "C" 'Set Accelerator key to ALT + C
Else
CommandButton1.Caption = "OK"
CommandButton1.Accelerator = "O" 'Set Accelerator key to ALT + O
End If
End Sub
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.
Feedback
https://aka.ms/ContentUserFeedback.
Coming soon: Throughout 2024 we will be phasing out GitHub Issues as the feedback mechanism for content and replacing it with a new feedback system. For more information see:Submit and view feedback for