Keyboard shortcut to change textbox background color

[CSyx]

Good day all,

Is it possible to assign a keyboard shortcut to change a userform textbox background color? If so, could you please point me in the right direction? The below code works for a textbox when assigned to a command button on the userform. However, it does not work when assigned to a keyboard shortcut.

If UserForm1.TextBox1.BackColor = &HFFFFFF Then
        UserForm1.TextBox1.BackColor = &HFFFF&
Else
        UserForm1.TextBox1.BackColor = &HFFFFFF
End If

Thanks for the help!

 

[Scott Huish]

Here is one way:

Put a control button on your form.
Put your code in for that button.
Here is a shortened version of your code:

Private Sub CommandButton1_Click()
UserForm1.TextBox1.BackColor = IIf(UserForm1.TextBox1.BackColor = &HFFFFFF, &HFFFF00, &HFFFFFF)
End Sub

Set the Accelerator property to a single letter.
Set the Height and Width of this control button to 0
So if you used t as your accelerator, you would hit Alt-t to run your code.

 

[CSyx]

Awesome! Thanks a bunch!