Giúp đỡ code của Shape

[phibonaxi]

Tôi có 10 loại Shape trên 1 worksheet (vẽ bằng thanh Drawing). Các Shape được gán 1 macro có tên là GetNameShape
Vậy macro GetNameShape viết như thế nào để mỗi khi click vào 1 shape bất kỳ sẽ cho 1 MsgBox thông báo Name của shape vừa click.
Xin cảm ơn các Thầy và GPE's members rất nhiều.

Happy Women's Day !

 

[ndu96081631]

Tôi có 10 loại Shape trên 1 worksheet (vẽ bằng thanh Drawing). Các Shape được gán 1 macro có tên là GetNameShape
Vậy macro GetNameShape viết như thế nào để mỗi khi click vào 1 shape bất kỳ sẽ cho 1 MsgBox thông báo Name của shape vừa click.
Xin cảm ơn các Thầy và GPE's members rất nhiều.

Happy Women's Day !

Code viết thế này:

Sub GetNameShape()
  MsgBox Application.Caller
End Sub