change button properties without looping through shapes

[katto01]

Hello,

I would like to change the fontstyle of a button. not sure why this works

ActiveSheet.Shapes.Range(Array("Button 6")).Select

With Selection.Font
.FontStyle = "bold"
End With

and this doesn't

ActiveSheet.Shapes.Range(Array("Button 6")).Font.FontStyle = "bold"

Thank you

[Richard Buttrey]

I think the difference is that when you're not selecting the shape the syntax has to be different.

i.e.
ActiveSheet.Shapes("Button 6").TextFrame.Characters.Font.Bold = True

[rorya]

FWIW, for a Form button, you can simplify to

Please Login or Register  to view this content.