Hi,
I can see many posts about placing and naming WordArt, but I would like to retrieve my WordArt text.
Sub AddShape()
Dim Sh As Shape
Set Sh = ActiveSheet.Shapes.AddTextEffect(msoTextEffect1, "50 x 50", _
"Arial Black", 36#, msoFalse, msoFalse, 218.25, 180#)
Sh.Name = "MyShape"
End Sub
How can I retrieve the "50 x 50" text from the WordArt above
I can see many posts about placing and naming WordArt, but I would like to retrieve my WordArt text.
Sub AddShape()
Dim Sh As Shape
Set Sh = ActiveSheet.Shapes.AddTextEffect(msoTextEffect1, "50 x 50", _
"Arial Black", 36#, msoFalse, msoFalse, 218.25, 180#)
Sh.Name = "MyShape"
End Sub
How can I retrieve the "50 x 50" text from the WordArt above
