返回或设置指定的艺术字中的字体名称。 读/写 String。
语法
表达式。FontName
表达 一个代表 TextEffectFormat 对象的变量。
示例
本示例将 myDocument 上第三个形状的字体名称设置为 Courier New（如果形状为艺术字）。
Set myDocument = Worksheets(1)
With myDocument.Shapes(3)
If .Type = msoTextEffect Then
.TextEffect.FontName = "Courier New"
End If
End With
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。