This may help:-

Sub WordartEffects()
'create a wordart object, then...
Dim shp As Shape

Set shp = shtReport.Shapes("Rectangle 2550")
With shp
.TextEffect.Text = "abc"
' .TextEffect.PresetTextEffect = msoTextEffect1
.TextFrame.Characters.Font.ColorIndex = 4
End With
End Sub


*** Sent via Developersdex http://www.developersdex.com ***