Code lấy tên Object được chọn

[le tin]

Nhờ các bạn giúp tôi viết code lấy tên Object đang chọn . Ví dụ như file đính kèm .
Cảm ơn .

 

[Hoàng Trọng Nghĩa]

Nhờ các bạn giúp tôi viết code lấy tên Object đang chọn . Ví dụ như file đính kèm .
Cảm ơn .

Bạn click vào hình nào, hình đó sẽ báo tên.

 

[Hoàng Trọng Nghĩa]

Nếu bạn vẫn muốn dùng nút lệnh thì tôi cũng sẽ hướng dẫn bạn như sau:

1) Chạy thủ tục dưới đây để gán macro cho các shape trong sheet hiện hành:

(Cái này mà gán thủ công chắc đuối tay với chục shape trở lên quá!)

Sub AssignMacro()
    On Error Resume Next
    Dim Sh As Shape
    For Each Sh In ActiveSheet.Shapes
        ''Sh.OnAction = ""
        Sh.OnAction = "ShapesName"
    Next
End Sub

2) Thủ tục được gán là:

Sub ShapesName()
    With ActiveSheet.Shapes(Application.Caller)
        ShapeName = .Name
        .Select
    End With
End Sub

3) Thủ tục chính của nút lệnh:

Private Sub CommandButton1_Click()
    If ShapeName = "" Then
        MsgBox "Ban chua chon hinh nao!"
    Else
        MsgBox "Ten hinh chon: " & ShapeName
        ShapeName = ""
    End If
End Sub

 

[le tin]

Bạn click vào hình nào, hình đó sẽ báo tên.

Cảm ơn bạn Nghĩa , nếu Group thì thay đổi thế nào .

 

[Hoàng Trọng Nghĩa]

Cảm ơn bạn Nghĩa , nếu Group thì thay đổi thế nào .

Tôi nghĩ, dù các shape có Group với nhau thì khi bạn click vào shape nào đó trong group đó, nó vẫn "đọc" chính xác tên shape bạn click vào.

 

[le tin]

Tôi nghĩ, dù các shape có Group với nhau thì khi bạn click vào shape nào đó trong group đó, nó vẫn "đọc" chính xác tên shape bạn click vào.

Ý tôi là đọc tên của group đó .

 

[sealand]

Vậy thì bạn dùng Code này xem sao:

Sub Test()
If TypeName(Selection) <> "Range" Then
MsgBox Selection.Name
End If
End Sub