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

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

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.

ActiveSheet.Shapes("Button 1").Select

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

Can you provide equivalent code for a Forms option button?

---
Regards,
Norman



"Mangesh Yadav" wrote in message
...
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

Please remove

(Start:=1, Length:=8)

part from the code.


Mangesh



"Mangesh Yadav" wrote in message
...
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 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







"Norman Jones" wrote in message
...
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

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

Mangesh



"Norman Jones" wrote in message
...
Hi Mangesh.

ActiveSheet.Shapes("Button 1").Select

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

Can you provide equivalent code for a Forms option button?

---
Regards,
Norman



"Mangesh Yadav" wrote in message
...
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

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"). _
Object.Font.Bold = True

Thanks!

Robert

"Mangesh Yadav" wrote:

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







"Norman Jones" wrote in message
...
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

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

Mangesh



"Linking to specific cells in pivot table"
crosoft.com wrote in
message ...
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"). _
Object.Font.Bold = True

Thanks!

Robert

"Mangesh Yadav" wrote:

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







"Norman Jones" wrote in message
...
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

Hi Mangesh,

"Mangesh Yadav" wrote in message
...
But then you are not using a control from the FORMS menu, but the control
toolbox...!




"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

Hi Norman,

Yes, I had seen it.

Mangesh




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

"Mangesh Yadav" wrote in message
...
But then you are not using a control from the FORMS menu, but the
control
toolbox...!




"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