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"
crosoft.com wrote in
message ...
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,

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"
crosoft.com wrote in
message ...
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 Norman -- I'm specifically looking to "bold" the text -- does your codes
show this?

thanks,

Rob

"Norman Jones" wrote:

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"
crosoft.com wrote in
message ...
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,

You originally said:

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

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"
crosoft.com wrote in
message ...
Hi Norman -- I'm specifically looking to "bold" the text -- does your
codes
show this?

thanks,

Rob

"Norman Jones" wrote:

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"
crosoft.com wrote in
message ...
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

You can simply select the text of the caption and use normal formatting

Mangesh



"Norman Jones" wrote in message
...
Hi Rob,

You originally said:

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

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"
crosoft.com wrote in
message ...
Hi Norman -- I'm specifically looking to "bold" the text -- does your
codes
show this?

thanks,

Rob

"Norman Jones" wrote:

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"
crosoft.com wrote in
message ...
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

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" wrote in message
...
You can simply select the text of the caption and use normal formatting

Mangesh



"Norman Jones" wrote in message
...
Hi Rob,

You originally said:

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

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"
crosoft.com wrote in
message ...
Hi Norman -- I'm specifically looking to "bold" the text -- does your
codes
show this?

thanks,

Rob

"Norman Jones" wrote:

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"
crosoft.com wrote
in
message ...
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 Mangesh,

You can simply select the text of the caption and use normal formatting

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



"Mangesh Yadav" wrote in message
...
You can simply select the text of the caption and use normal formatting

Mangesh



"Norman Jones" wrote in message
...
Hi Rob,

You originally said:

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

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"
crosoft.com wrote in
message ...
Hi Norman -- I'm specifically looking to "bold" the text -- does your
codes
show this?

thanks,

Rob

"Norman Jones" wrote:

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"
crosoft.com wrote
in
message ...
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