Shapes (Shape) TextEffectFormat | 
包含应用于艺术字对象的属性和方法。
使用 TextEffect 属性返回 TextEffectFormat 对象。以下示例为 myDocument 上的第一个形状设置字体名称及格式。要运行本示例,第一个形状必须是艺术字对象。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1).TextEffect
    .FontName = "Courier New"
    .FontBold = True
    .FontItalic = True
End With