Custom colors of commandbutton in userform

Question

I have succesfully colored the font and background of one button (commandbutton_1) in my userform:

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
    CommandButton1.BackColor = RGB(220, 230, 241)
    CommandButton1.ForeColor = RGB(0, 0, 0)
End Sub


Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
    CommandButton1.BackColor = RGB(22, 54, 92)
    CommandButton1.ForeColor = RGB(255, 255, 255)
End Sub

Private Sub UserForm_Activate()
    CommandButton1.BackColor = RGB(22, 54, 92)
    CommandButton1.ForeColor = RGB(225, 225, 225)
    UserForm.BackColor = RGB(22, 54, 92)
End Sub

But when I apply the same code to my second button (CommandButton2), it is not working properly:

Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
    CommandButton2.BackColor = RGB(220, 230, 241)
    CommandButton2.ForeColor = RGB(0, 0, 0)
End Sub


Private Sub UserForm2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
    CommandButton2.BackColor = RGB(22, 54, 92)
    CommandButton2.ForeColor = RGB(255, 255, 255)
End Sub

Private Sub UserForm2_Activate()
    CommandButton2.BackColor = RGB(22, 54, 92)
    CommandButton2.ForeColor = RGB(225, 225, 225)
    UserForm.BackColor = RGB(22, 54, 92)
End Sub

Alex K. · Accepted Answer · 2015-10-20 10:40:14Z

2

Your code would only work if the second command button were in a userform called UserForm2 as thats whats in your event handlers: UserForm2_MouseMove

Consolidate the code in to the event of the form you have called UserForm:

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
    CommandButton1.BackColor = RGB(22, 54, 92)
    CommandButton1.ForeColor = RGB(255, 255, 255)

    CommandButton2.BackColor = CommandButton1.BackColor
    CommandButton2.ForeColor = CommandButton1.ForeColor
End Sub

answered Oct 20, 2015 at 10:40

Alex K.

177k32 gold badges276 silver badges299 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Saud · Accepted Answer · 2015-10-20 10:57:47Z

With help from @Alex K., I found the answer to be:

    Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
    CommandButton1.BackColor = RGB(220, 230, 241)
    CommandButton1.ForeColor = RGB(0, 0, 0)
End Sub

Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
    CommandButton2.BackColor = RGB(220, 230, 241)
    CommandButton2.ForeColor = RGB(0, 0, 0)
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
    CommandButton1.BackColor = RGB(22, 54, 92)
    CommandButton1.ForeColor = RGB(255, 255, 255)

    CommandButton2.BackColor = CommandButton1.BackColor
    CommandButton2.ForeColor = CommandButton1.ForeColor
End Sub

Private Sub UserForm_Activate()
    CommandButton1.BackColor = RGB(22, 54, 92)
    CommandButton1.ForeColor = RGB(225, 225, 225)

    CommandButton2.BackColor = CommandButton1.BackColor
    CommandButton2.ForeColor = CommandButton1.ForeColor

    UserForm.BackColor = RGB(22, 54, 92)
End Sub

M. Kjaer · Accepted Answer · 2015-10-20 12:40:42Z

0

I think it is better to use Private Sub UserForm_Initialize() , here you can have all your formats for all CommandButtons, Labels, Textboxes etc. that you are using in your Userform :)

Private Sub UserForm_Initialize()

    CommandButton1.BackColor = RGB(22, 54, 92)
    CommandButton1.ForeColor = RGB(225, 225, 225)
    UserForm.BackColor = RGB(22, 54, 92)

    CommandButton2.BackColor = RGB(22, 54, 92)
    CommandButton2.ForeColor = RGB(255, 255, 255)

End Sub

answered Oct 20, 2015 at 12:40

M. Kjaer

1361 silver badge9 bronze badges

Collectives™ on Stack Overflow

Custom colors of commandbutton in userform

3 Answers 3

Comments

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

3 Answers 3

Comments

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related