FontSize Property Example
This example sets the font size to 16 points for the shape named "WordArt 2" in myDocument.
myDocument
Set myDocument = ActiveDocument myDocument.Shapes("WordArt 2").TextEffect.FontSize = 16