EffectParameters.FontName Property (PowerPoint)
Returns or sets the name of the font in the specified WordArt. Read/write.
Syntax
expression .FontName
expression A variable that represents an EffectParameters object.
Return Value
String
Example
This example sets the font name to "Courier New" for shape three on myDocument if the shape is WordArt.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3)
If .Type = msoTextEffect Then
.TextEffect.FontName = "Courier New"
End If
End With