วิธีรับรูปร่างที่คลิกโดยไม่ต้องใช้ Application.Caller

คุณสามารถเปลี่ยนชื่อวัตถุรูปร่างในแผ่นงานของคุณได้หรือไม่?

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

หรือคุณสามารถตั้งค่าคุณสมบัติ .OnAction ของแต่ละรูปร่างด้วยตนเองเพื่อส่งชื่อรูปร่างไปยังฟังก์ชันของคุณ:

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 

ซึ่งจะทำให้คุณมีชื่อรูปร่างที่มีความยาวเกิน 30 อักขระได้ มันค่อนข้างน่าเกลียดแม้ว่า