Formatting text of Forms.OptionButton (radio button)

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi,

Is there a way to format the text of an OptionButton (from "Forms") in a
macro? When I try to record a macro to do this, the macro doesn't seem to
recognize what I'm doing (I'm right clicking on the radio button, selecting
"Properties", then selecting Font, then changing to "Bold"). Any help is
appreciated!

Thanks,

Rob
 
Hi Rob,

The following worked for me:

Sub Tester()

ActiveSheet.Shapes("Option Button 4").Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.Solid
.ForeColor.SchemeColor = 10
.Transparency = 0.5
End With

With Selection.ShapeRange.Line
.Weight = 1.5
.DashStyle = msoLineSolid
.Style = msoLineSingle
.Transparency = 0#
.Visible = msoTrue
.ForeColor.SchemeColor = 39
.BackColor.RGB = RGB(255, 255, 255)
End With

End Sub

--

---
Regards,
Norman



"Linking to specific cells in pivot table"
 
Hi Rob,

Sorry, I missed the reference to 'text'.

Try:

ActiveSheet.Shapes("Option Button 4").Select
Selection.Characters.Text = "CHOICE 2"


---
Regards,
Norman



"Linking to specific cells in pivot table"
 
Hi Norman -- I'm specifically looking to "bold" the text -- does your codes
show this?

thanks,

Rob
 
Hi Rob,

You originally said:

I am not aware of a way to enbolden the caption of an option button from the
Forms toolbar.

If, in fact, you refer to an option button from the Control Toolbox, try:

ActiveSheet.OLEObjects("OptionButton1"). _
Object.Font.Bold = True

---
Regards,
Norman



"Linking to specific cells in pivot table"
 
You can simply select the text of the caption and use normal formatting

Mangesh
 
Hi Mangesh,
You can simply select the text of the caption and use normal formatting
Click to expand...

And this works for you with a Forms Toolbar option button caption?

Additionaaly, could you provide me with code to do this programmatically?


Regards,
Norman
 
ActiveSheet.Shapes("Button 1").Select
With Selection.Characters(Start:=1, Length:=8).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With


for VBA solution.

Mangesh
 
Hi Mangesh.
ActiveSheet.Shapes("Button 1").Select
Click to expand...

How does this relate to the OP's "OptionButton (radio button)"?

Can you provide equivalent code for a Forms option button?
 
Please remove

(Start:=1, Length:=8)

part from the code.


Mangesh



Mangesh Yadav said:
ActiveSheet.Shapes("Button 1").Select
With Selection.Characters(Start:=1, Length:=8).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With


for VBA solution.

Mangesh



Mangesh Yadav said:
You can simply select the text of the caption and use normal formatting

Mangesh



Norman Jones said:
Hi Rob,

You originally said:

Is there a way to format the text of an OptionButton (from
Click to expand...
"Forms")
in
a
macro?

I am not aware of a way to enbolden the caption of an option button
Click to expand...
from
the
Click to expand...
Click to expand...
 
Hi Norman,

provided the code in the follow-up post.


Once again...

ActiveSheet.Shapes("Button 1").Select
With Selection.Characters.Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With


Mangesh
 
Apologies. My mistake. I mis-read it as a simple button and not an
option-button.

Mangesh
 
Thank you Mangesh and Norman for your help! I haven't been able to check
your responses until just a little while ago and my problem has been
resolved. Specifically, the following code resolved my issue:

ActiveSheet.OLEObjects("OptionButton1"). _
Thanks!

Robert
 
But then you are not using a control from the FORMS menu, but the control
toolbox...!

Mangesh



"Linking to specific cells in pivot table"
 
Back
Top