FontName 属性

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

示例

如果 myDocument 上的图形三是艺术字对象，则本示例将把该对象的字体设置为“Courier New”字体。

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