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)