Change Option Button text color after selected

[Arie Bos]

I have a model with several Option Button groups (Active X, not Form Controls).
Is there a way to change the color of the text of the selected button? This would clearly show the user what he/she had selected.
Many thanks,

 

[Michael M]

Rhere a number of otions on this previous thread for toggling Button colors. If they aren't useful please post back

Toggle Button Color Change When Depressed

I have about 30 buttons that I am trying to add a line of code that will change the color of the button when pressed and depressed. Any ideas? Private Sub ToggleButtonAHAJ_Click() With Columns("AH:AJ") If .EntireColumn.Hidden = True Then .EntireColumn.Hidden = False Else...

www.mrexcel.com

 

[abdelfattah]

Hi Arie I think this is what you want please click this link
Change Cell Color By Option Button - OzGrid Free Excel/VBA Help Forum

 

[Arie Bos]

Thank you Michael and Abdel,

I used one code which worked well for ForeColor, but when I toggle the option, and the value is False, I tried the following to change it back to standard, but it does not and stays red:

Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then OptionButton2.ForeColor = vbRed
If OptionButton2.Value = False Then OptionButton2.ForeColor = vbBlack
End Sub

 

[dmt32]

Try using the controls Change Event & see if that solves your issue

Private Sub OptionButton2_Change()
     With Me.OptionButton2
        .ForeColor = IIf(.Value, vbRed, vbButtonText)
    End With
End Sub

Dave

 

[abdelfattah]

@dmt32 what if have many option buttons like green for oprionbutton1 and red for optionbutton2 and blue for optionbutton 3
how is your code ?

 

[dmt32]

I was responding to the OP & their post but you could adapt my suggestion to a common code & pass the required colour value to it.

Dave

 

[Arie Bos]

Hi Dave, Your little piece if code works perfectly!

Many thanks to all,

Arie

 

[dmt32]

Hi Dave, Your little piece if code works perfectly!

Many thanks to all,

Arie

Most welcome - appreciate the feedback

Dave