Edit wordart in a grouped object using a macro

[EllieCat]

I'm not entirely certain this is even possible, I'm having real trouble with it.

I have a button which runs a macro, which consists of an autoshape rectangle, a piece of clipart, and then a piece of wordart layered on top, all grouped together.

As part of a macro, I want to be able to change the text of the wordart, and change the assigned macro (i.e. the macro initially changes the backgrounds on graphs to white for a print-friendly version, once it's run I want the text to change from "Print Version" to "Screen Version" and be linked to the macro which puts the colours back)

I can't seem to select the wordart object within a macro to change the text (if I have macro recording on I can't select the wordart object, if I start with it selected and "edit wordart" then the change isn't made and nothing is recorded, and if I manually set the Shapes("Wordart 1") which I know it should be, I get a runtime error as object not found)

Is it possible to use a macro to degroup, select the wordart, change the text, regroup and assign the new macro, and if so is it possible to force it to keep the same identifier for the object?

Can anyone suggest an alternative way around this?

Thanks!

EllieCat

 

[sulakvea]

try this

ActiveSheet.Shapes("WordArt 1").TextEffect.Text = "hello"

 

[sulakvea]

as for the second part (i.e. ungroup / regroup), something like this

ActiveSheet.Shapes("ObjOld").Ungroup ' ungroups ObjOld

' rest of code runs here

ActiveSheet.Shapes("Rect1").Select ' selects only one object from the old group
Selection.ShapeRange.Regroup.Select ' Regroup groups the same selection
Selection.Name = "ObjOld" ' names the new group with

 

[EllieCat]

Thank you very much!

I had to force a name onto the wordart itself as well as the group, but once that was done this works like a charm.

EllieCat