FontName Property 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