Formatting text of Forms.OptionButton (radio button)

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"
<Linkingtospecificcellsinpivottable@discussions.microsoft.com> wrote in
message news:177C97A5-2823-41E9-9246-97929B3F254B@microsoft.com...
> 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"
<Linkingtospecificcellsinpivottable@discussions.microsoft.com> wrote in
message news:177C97A5-2823-41E9-9246-97929B3F254B@microsoft.com...
> 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"
> <Linkingtospecificcellsinpivottable@discussions.microsoft.com> wrote in
> message news:177C97A5-2823-41E9-9246-97929B3F254B@microsoft.com...
> > 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"
<Linkingtospecificcellsinpivottable@discussions.microsoft.com> wrote in
message news:C842372A-5511-46BD-888A-6B7E6B5BDD5D@microsoft.com...
> 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"
>> <Linkingtospecificcellsinpivottable@discussions.microsoft.com> wrote in
>> message news:177C97A5-2823-41E9-9246-97929B3F254B@microsoft.com...
>> > 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" <normanjones@whereforartthou.com> wrote in message
news:u9DdtzMnFHA.2444@tk2msftngp13.phx.gbl...
> 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"
> <Linkingtospecificcellsinpivottable@discussions.microsoft.com> wrote in
> message news:C842372A-5511-46BD-888A-6B7E6B5BDD5D@microsoft.com...
> > 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"
> >> <Linkingtospecificcellsinpivottable@discussions.microsoft.com> wrote in
> >> message news:177C97A5-2823-41E9-9246-97929B3F254B@microsoft.com...
> >> > 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" <mangesh.NOSPAMyadav@gmail.com> wrote in message
news:eJWOW1MnFHA.1948@TK2MSFTNGP12.phx.gbl...
> You can simply select the text of the caption and use normal formatting
>
> Mangesh
>
>
>
> "Norman Jones" <normanjones@whereforartthou.com> wrote in message
> news:u9DdtzMnFHA.2444@tk2msftngp13.phx.gbl...
> > 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"
> > <Linkingtospecificcellsinpivottable@discussions.microsoft.com> wrote in
> > message news:C842372A-5511-46BD-888A-6B7E6B5BDD5D@microsoft.com...
> > > 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"
> > >> <Linkingtospecificcellsinpivottable@discussions.microsoft.com> wrote
in
> > >> message news:177C97A5-2823-41E9-9246-97929B3F254B@microsoft.com...
> > >> > 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" <mangesh.NOSPAMyadav@gmail.com> wrote in message
news:#yhhb4MnFHA.3300@TK2MSFTNGP15.phx.gbl...
> 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" <mangesh.NOSPAMyadav@gmail.com> wrote in message
> news:eJWOW1MnFHA.1948@TK2MSFTNGP12.phx.gbl...
> > You can simply select the text of the caption and use normal formatting
> >
> > Mangesh
> >
> >
> >
> > "Norman Jones" <normanjones@whereforartthou.com> wrote in message
> > news:u9DdtzMnFHA.2444@tk2msftngp13.phx.gbl...
> > > 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"
> > > <Linkingtospecificcellsinpivottable@discussions.microsoft.com> wrote
in
> > > message news:C842372A-5511-46BD-888A-6B7E6B5BDD5D@microsoft.com...
> > > > 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"
> > > >> <Linkingtospecificcellsinpivottable@discussions.microsoft.com>
wrote
> in
> > > >> message news:177C97A5-2823-41E9-9246-97929B3F254B@microsoft.com...
> > > >> > 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" <mangesh.NOSPAMyadav@gmail.com> wrote in message
news:eJWOW1MnFHA.1948@TK2MSFTNGP12.phx.gbl...
> You can simply select the text of the caption and use normal formatting
>
> Mangesh
>
>
>
> "Norman Jones" <normanjones@whereforartthou.com> wrote in message
> news:u9DdtzMnFHA.2444@tk2msftngp13.phx.gbl...
>> 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"
>> <Linkingtospecificcellsinpivottable@discussions.microsoft.com> wrote in
>> message news:C842372A-5511-46BD-888A-6B7E6B5BDD5D@microsoft.com...
>> > 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"
>> >> <Linkingtospecificcellsinpivottable@discussions.microsoft.com> wrote
>> >> in
>> >> message news:177C97A5-2823-41E9-9246-97929B3F254B@microsoft.com...
>> >> > 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" <mangesh.NOSPAMyadav@gmail.com> wrote in message
news:%23yhhb4MnFHA.3300@TK2MSFTNGP15.phx.gbl...
> 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" <mangesh.NOSPAMyadav@gmail.com> wrote in message
> news:eJWOW1MnFHA.1948@TK2MSFTNGP12.phx.gbl...
>> You can simply select the text of the caption and use normal formatting
>>
>> Mangesh
>>
>>
>>
>> "Norman Jones" <normanjones@whereforartthou.com> wrote in message
>> news:u9DdtzMnFHA.2444@tk2msftngp13.phx.gbl...
>> > 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"
>> > <Linkingtospecificcellsinpivottable@discussions.microsoft.com> wrote in
>> > message news:C842372A-5511-46BD-888A-6B7E6B5BDD5D@microsoft.com...
>> > > 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"
>> > >> <Linkingtospecificcellsinpivottable@discussions.microsoft.com> wrote
> in
>> > >> message news:177C97A5-2823-41E9-9246-97929B3F254B@microsoft.com...
>> > >> > 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" <normanjones@whereforartthou.com> wrote in message
news:eQCzh8MnFHA.2484@TK2MSFTNGP15.phx.gbl...
> 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" <mangesh.NOSPAMyadav@gmail.com> wrote in message
> news:eJWOW1MnFHA.1948@TK2MSFTNGP12.phx.gbl...
> > You can simply select the text of the caption and use normal formatting
> >
> > Mangesh
> >
> >
> >
> > "Norman Jones" <normanjones@whereforartthou.com> wrote in message
> > news:u9DdtzMnFHA.2444@tk2msftngp13.phx.gbl...
> >> 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"
> >> <Linkingtospecificcellsinpivottable@discussions.microsoft.com> wrote in
> >> message news:C842372A-5511-46BD-888A-6B7E6B5BDD5D@microsoft.com...
> >> > 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"
> >> >> <Linkingtospecificcellsinpivottable@discussions.microsoft.com> wrote
> >> >> in
> >> >> message news:177C97A5-2823-41E9-9246-97929B3F254B@microsoft.com...
> >> >> > 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" <normanjones@whereforartthou.com> wrote in message
news:uCL1m#MnFHA.3120@TK2MSFTNGP09.phx.gbl...
> 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" <mangesh.NOSPAMyadav@gmail.com> wrote in message
> news:%23yhhb4MnFHA.3300@TK2MSFTNGP15.phx.gbl...
> > 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" <mangesh.NOSPAMyadav@gmail.com> wrote in message
> > news:eJWOW1MnFHA.1948@TK2MSFTNGP12.phx.gbl...
> >> You can simply select the text of the caption and use normal formatting
> >>
> >> Mangesh
> >>
> >>
> >>
> >> "Norman Jones" <normanjones@whereforartthou.com> wrote in message
> >> news:u9DdtzMnFHA.2444@tk2msftngp13.phx.gbl...
> >> > 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"
> >> > <Linkingtospecificcellsinpivottable@discussions.microsoft.com> wrote
in
> >> > message news:C842372A-5511-46BD-888A-6B7E6B5BDD5D@microsoft.com...
> >> > > 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"
> >> > >> <Linkingtospecificcellsinpivottable@discussions.microsoft.com>
wrote
> > in
> >> > >> message news:177C97A5-2823-41E9-9246-97929B3F254B@microsoft.com...
> >> > >> > 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" <normanjones@whereforartthou.com> wrote in message
> news:eQCzh8MnFHA.2484@TK2MSFTNGP15.phx.gbl...
> > 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" <mangesh.NOSPAMyadav@gmail.com> wrote in message
> > news:eJWOW1MnFHA.1948@TK2MSFTNGP12.phx.gbl...
> > > You can simply select the text of the caption and use normal formatting
> > >
> > > Mangesh
> > >
> > >
> > >
> > > "Norman Jones" <normanjones@whereforartthou.com> wrote in message
> > > news:u9DdtzMnFHA.2444@tk2msftngp13.phx.gbl...
> > >> 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"
> > >> <Linkingtospecificcellsinpivottable@discussions.microsoft.com> wrote in
> > >> message news:C842372A-5511-46BD-888A-6B7E6B5BDD5D@microsoft.com...
> > >> > 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"
> > >> >> <Linkingtospecificcellsinpivottable@discussions.microsoft.com> wrote
> > >> >> in
> > >> >> message news:177C97A5-2823-41E9-9246-97929B3F254B@microsoft.com...
> > >> >> > 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"
<Linkingtospecificcellsinpivottable@discussions.microsoft.com> wrote in
message news:16A415DB-48DB-445E-89F1-716E5483090C@microsoft.com...
> 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" <normanjones@whereforartthou.com> wrote in message
> > news:eQCzh8MnFHA.2484@TK2MSFTNGP15.phx.gbl...
> > > 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" <mangesh.NOSPAMyadav@gmail.com> wrote in message
> > > news:eJWOW1MnFHA.1948@TK2MSFTNGP12.phx.gbl...
> > > > You can simply select the text of the caption and use normal
formatting
> > > >
> > > > Mangesh
> > > >
> > > >
> > > >
> > > > "Norman Jones" <normanjones@whereforartthou.com> wrote in message
> > > > news:u9DdtzMnFHA.2444@tk2msftngp13.phx.gbl...
> > > >> 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"
> > > >> <Linkingtospecificcellsinpivottable@discussions.microsoft.com>
wrote in
> > > >> message news:C842372A-5511-46BD-888A-6B7E6B5BDD5D@microsoft.com...
> > > >> > 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"
> > > >> >> <Linkingtospecificcellsinpivottable@discussions.microsoft.com>
wrote
> > > >> >> in
> > > >> >> message
news:177C97A5-2823-41E9-9246-97929B3F254B@microsoft.com...
> > > >> >> > 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" <mangesh.NOSPAMyadav@gmail.com> wrote in message
news:ejkh%23vhoFHA.1048@tk2msftngp13.phx.gbl...
> But then you are not using a control from the FORMS menu, but the control
> toolbox...!




>> > > > "Norman Jones" <normanjones@whereforartthou.com> wrote in message
>> > > > news:u9DdtzMnFHA.2444@tk2msftngp13.phx.gbl...
>> > > >> 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" <normanjones@whereforartthou.com> wrote in message
news:#yGAspjoFHA.3036@TK2MSFTNGP14.phx.gbl...
> Hi Mangesh,
>
> "Mangesh Yadav" <mangesh.NOSPAMyadav@gmail.com> wrote in message
> news:ejkh%23vhoFHA.1048@tk2msftngp13.phx.gbl...
> > But then you are not using a control from the FORMS menu, but the
control
> > toolbox...!
>
>
>
>
> >> > > > "Norman Jones" <normanjones@whereforartthou.com> wrote in message
> >> > > > news:u9DdtzMnFHA.2444@tk2msftngp13.phx.gbl...
> >> > > >> 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
>
>