FontName 属性

返回或设置指定艺术字的字体名称。可读写。String 类型。

示例

本示例将 myDocument 中第三个形状（如果该形状是艺术字）字体名称设置为“Courier New”。

Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3)
    If .Type = msoTextEffect Then
        .TextEffect.FontName = "Courier New"
    End If
End With