Active X button, change font color depending on what the font color is

[Romano_odK]

Good afternoon,

Now I have a macro that changes the text of a button when you push it by reading the text that is in the button at that time. Could this also be done with the color of the font. So push the button and when the color is red change it white (RGB code).

Is this possible?

Thank you for your time.

Kind regards,

Romano

 

[Fluff]

How about

Private Sub CommandButton1_Click()
   With Me.CommandButton1
      .ForeColor = IIf(.ForeColor = vbRed, vbWhite, vbRed)
   End With
End Sub

 

[Romano_odK]

How about

Private Sub CommandButton1_Click()
   With Me.CommandButton1
      .ForeColor = IIf(.ForeColor = vbRed, vbWhite, vbRed)
   End With
End Sub

Good afternoon,
Thank you for your reply, this works great.

Have a nice weekend.
Romano

 

[Fluff]

You're welcome & thanks for the feedback.