Change Name Reference of an Autoshape?

[itsthecheese]

Excel w/VBA: I'm a reorganizing my graphics and would like to streamline them with the macros attached to them... I have many random numbered autoshapes and would like to re-number then ... is there a way to do this? I can't seem to find anything related to this.

Thank you in advance for your assistance

drive slow...steer fast

 

[SkipVought]

If you have a LIST if the names, put the new name in the adjacent column.

Then you loop thru the list and rename

for each r in [YourRange]
  SheetObjectYourShapesAreOn.Shapes(r.value).name = r.offset(0,1).value
next

Skip,

_[red][/red]

 

[MeGustaXL]

Hi Cheezy!

You can also name Autoshapes, same as you can with cells and charts... See faq707-4055 for how to do it

Chris

Beer is God's way of telling us He loves us and wants us to be happy - Benjamin Franklin