本示例在 myDocument 中添加包含文本“Test”的艺术字。

Set myDocument = ActivePresentation.Slides(1)
Set newWordArt = myDocument.Shapes _
    .AddTextEffect(PresetTextEffect:=ksoTextEffect1, _
        Text:="Test", FontName:="宋体", FONTSIZE:=36, _
            FONTBOLD:=ksoFalse, FONTITALIC:=ksoFalse, Left:=10, Top:=10)