Change from button to WordArt

[tiredofit]

I have a button on my worksheet (called "Rec") which I want to change to WordArt.

There are many types of WordArt but I can't find the property.

Recording a macro to insert a WordArt and selecting the first one gives me this:

ActiveSheet.Shapes.AddTextEffect(msoTextEffect31, "Your text here", "+mn-lt", _
        54, msoFalse, msoFalse, 296.5575590551, 119.3354330709).Select

and selecting the second gives me this:

    ActiveSheet.Shapes.AddTextEffect(msoTextEffect32, "Your text here", "+mn-lt", _
        54, msoFalse, msoFalse, 296.5575590551, 119.3354330709).Select

If I named the WordArt as "WordArt" and typed this in the Immediate WIndow:

?Sheet1.Shapes("Rec").Type

?Sheet1.Shapes("WordArt").Type

they both return 1, so Type is not the correct property to distinguish between them.

How can I identify WordArt's property?

Thanks

 

[Micron]

Shapes is a collection. "Rec" is a member of the collection and is identified by its index (numeric) or its name. Type therefore refers to the object type in the collection, which is Shape. That's why you get the same number. Should work out if you refer to the Shape object by its name. If you refer to it by index and later add/remove a shape, I'm pretty sure the index of Rec will change, so index is not so reliable here.