FontSize Property Example

This example sets the font size to 16 points for the shape named "WordArt 4" in myDocument.

Set myDocument = Worksheets(1)
myDocument.Shapes("WordArt 4").TextEffect.FontSize = 16