In diesem Beispiel wird in myDocument ein WordArt-Objekt mit dem Text "Test" eingefügt.
Set myDocument = Worksheets(1) Set newWordArt = myDocument.Shapes.AddTextEffect( _ PresetTextEffect:=msoTextEffect1, Text:="Test", _ FontName:="Arial Black", FontSize:=36, _ FontBold:=False, FontItalic:=False, Left:=10, _ Top:=10)