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 2" in the active document.
Dim docActive As Document Set docActive = ActiveDocument
docActive.Shapes("WordArt 2").TextEffect.FontSize = 16