Returns or sets the font size for the specified WordArt, in points. Read/write Single.
Example
This example sets the font size to 16 points for the shape named "WordArt 4" in myDocument.
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes("WordArt 4").TextEffect.FontSize = 16