FontName Property
Returns or sets the name of the font in the specified WordArt. Read/write String.
Example
This example sets the font name to "Courier New" for shape three on myDocument if the shape is WordArt.
Set myDocument = Worksheets(1)
With myDocument.Shapes(3)
If .Type = msoTextEffect Then
.TextEffect.FontName = "Courier New"
End If
End With