Duplicate shape nmes

[DeepButi]

Hi all,
I have some shapes to which I assigned specific names.

Copy/Paste any of them creates a new shape with the same exact name (despite what here is discused). Manually or via VBA. Only un-renamed shapes copy/paste operations create unique names.

How can I know, in VBA context,, wich one to work with?
To rename it I would need to know its ID, but no way to get it. I mean, to get IDs I need to use sheets(MySheet),shape(SHAPE NAME).id ... and I have two shapes with the same name.

Any idea?

Thks

 

[DanteAmor]

How can I know, in VBA context,, wich one to work with?

Maybe:

By position on the sheet. (Left and Top)​

By text contained in the form (TextFrame2.TextRange.Text)​

-----------------------------------------------------------------------

Knowing that when you copy a shape it gives you the same name, then copy the shape but with vba and immediately rename it with the specific name you want.

For example:

Sub nombres()
  Dim n As Long
 
  n = ActiveSheet.Shapes.Count
 
  ActiveSheet.Shapes("Model").Copy
  ActiveSheet.Paste
  Selection.Name = "MyNewFigure " & n + 1
End Sub

 

[DeepButi]

old_ID = ActiveSheet.Shapes(MyShapeName).ID
' ... copy & paste
For Each nm In ActiveSheet.Shapes
    If nm.Name = MyShapeName and nm.ID <> old_ID Then
        nm.Name = NewShapeName
        Exit For
    End If
Next

Somehow weird . Any better idea?

 

[DeepButi]

Maybe:

By position on the sheet. (Left and Top)​

By text contained in the form (TextFrame2.TextRange.Text)​

-----------------------------------------------------------------------

Knowing that when you copy a shape it gives you the same name, then copy the shape but with vba and immediately rename it with the specific name you want.

For example:

Sub nombres()
  Dim n As Long
 
  n = ActiveSheet.Shapes.Count
 
  ActiveSheet.Shapes("Model").Copy
  ActiveSheet.Paste
  Selection.Name = "MyNewFigure " & n + 1
End Sub

Nice! Didn't think the new object remains selected. It works, thks.