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
> > >>
> > >>
> > >>
> >
> >
>
>

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
>> >>
>> >>
>> >>
>>
>>
>
>