Hi Jennifer,
Try:
Code:
Application.CommandBars("WordArt").Controls(1).Execute
As for 'msoFalse, 239.25, 233.6' the AddTextEffect parameters are:
AddTextEffect(
PresetTextEffect,
Text,
FontName,
FontSize,
FontBold,
FontItalic,
Left,
Top)
Thus you have:
Code:
AddTextEffect(PresetTextEffect:=msoTextEffect1, Text:=char, FontName:=Font, FontSize:=36#, _
FontBold:=msoFalse, FontItalic:=msoFalse, Left:=239.25, Top:=233.6)