Sub createWA()
Set newWordArt = MyDocument.Shapes.AddTextEffect
_(PresetTextEffect:=msoTextEffect 10, Text:="Watch This", _
FontName:=fnt(MyValue), FontSize:= 40, FontBold:=False, _
FontItalic:=False, Left:=ShpLeft250, Top:=ShpTop200)
End Sub

"iangers" wrote:

I want to be able to create Wordart sections in an excel workbook using
VBA/Macros. I can't find out how to add these items to the workbook and the
help isn't helpful, it just tells you how to do it using the menus.

Does any one know how to do this?