Question

How can I retrieve the shape that was clicked to run a macro, without using Application.Caller?. Its name or the shape itself as an object.

I cant use Application.Caller because if the shape name is bigger than 30 characters, it retrieves only the first 30 characters.

Maybe there is an API that could retrieve the Sape object?

Edit:

1. I don’t want to loop shapes in sheet. Looping throug all shapes in the workbook takes too much time.
2. I can not rename the Shapes.

Thanks

Answer 1

Can you rename the Shape objects in your Worksheet?

Private Sub Workbook_Open()
Dim shp As shape
Dim i As Integer

For Each shp In ThisWorkbook.Sheets(1).Shapes
    shp.Name = "Shape" & Format(i, "0000")
    i = i + 1
Next shp
End Sub

Alternatively, you could manually set the .OnAction property of each shape to pass the shape name to your function:

Sub RenameShapes2()

    Dim shp As shape
    Dim i As Integer

    For Each shp In ThisWorkbook.Sheets(1).Shapes
        shp.name = "Shape" & "abcdefghijklmnopqrstuvwxyz0123456789_" & Format(i, "0000")
        shp.OnAction = "'userFunction """ & shp.name & """'"
        i = i + 1
    Next shp

End Sub


Sub userFunction(name As String)
    MsgBox name
End Sub 

This allows you to have Shape names over 30 characters in length. It’s kinda ugly though