Finding Shape names?

[tonywatsonhelp]

Hi everyone,
this is probably really simple but I now starting to get really feed up with it,
I have a load of shapes with names and I want to rename them now I know you can click on them but lots oof these shapes are on top of each other so it takes ages click sending to back and so on just to get to a shape to name it,

is there a place in excel that has the shapes all listed that I can edit from?

if so how do I find it?

thanks

Tony

 

[RickXL]

Hi,

I think if you know the name of a shape you can enter it into the Name Box and over-type it.

If you don't know the name then you will have to select it.

You could have a macro that listed all the names on a worksheet. You could then enter your preferred name alongside and have another macro to make the changes.

Thinking about it, you might like something like this:

Sub ShapeRename()

    Dim ws As Worksheet
    Dim sh As Shape
    Dim newName As Variant

    Set ws = ThisWorkbook.Worksheets("Sheet1")

    With ws

        For Each sh In .Shapes
            sh.Select
            ws.Activate
            newName = Application.InputBox(Prompt:="Enter new name for shape: " & sh.Name, Title:="Change Shape Names", Type:=2)
            If newName = "" Then Exit Sub
            sh.Name = newName
        Next

    End With

End Sub

The code needs to be pasted into a new Module.
The worksheet name is currently Sheet1 but can be overtyped.

It loops through the shapes on a worksheet.
It selects it so you can see which it is then prompts for a new name while quoting the old one.
If you enter a valid one it will change it.
Entering a null response will end the macro.

 

[tonywatsonhelp]

Hi Rickxl

That is brilliant, it will do exactly as I want,
massive thank you once again for your time and your help this will solve my problem

Thanks

Tony

 

[RickXL]

No problem - all part of the excellent MrExcel service

You were lucky, as I was writing the reply I had one of those "Hey, what if ...?" moments.

Thanks for the feedback.

 

[tonywatsonhelp]

Well your Hey what if moment has saved me hours of work today which means I will get to the pub later so thank you very much indeed

Thats quite a few times recently your code has helped me so thank you so much

Tony

 

[RickXL]

Happy to be of service ...
... and talking of pubs

Regards,

 

[NubeLube]

Just like to say thank you sorted me out to.