Text Box font

[WoodyHays]

I am trying to change the font of a text box that is grouped with another object, a line.

Do I have to ungroup them first, then change the font? I can't get that to work either.

Sub ChangeSpecificTextBox()

    ActiveSheet.Shape("rectangle 31").Select
                
        With Selected.TextFrame
            .Characters.Font.Name = "arial"
            .Characters.Font.FontStyle = "regular"
        End With
End Sub

These shapes and shapeRanges really confuse me.


Thanks,
Woody Hays

 

[Glaswegian]

Hi WoodyHays

Just curious - could you not change the text by right click and then format?

Regards

 

[WoodyHays]

Thanks for your response,

Yes, I caould change it manually, but this is for an application that will be used by many users and there are many such rectangles. I have to have an automated way to manage it.

Thanks,
Woody Hays

 

[HalfAce]

Hi Woody,
Try this slight change and see if it works for you.

With Selection.Characters.Font
.Name = "Arial"
.FontStyle = "Regular"
End With

This help?
Dan

 

[WoodyHays]

HalfAce,
Yes it worked after another slight modification.

Perfect...Thanks.

I am leaving early in the morning to go to Charlotte NC to start training users and this was the last piece I needed.

It works fine with grouped objects, I don't have to mess with ungrouping them.

Woody Hays