office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

获取图形单击的形状的名称(Shape Name)

2020-05-23 08:00:00
zstmtony
原创
55
工作表中生成图形(形状),名称是不确定的(比如“矩形 100”、“矩形 1011”),当点击图形(形状)时,如何获取被点图形(形状)的名称,即要获得Shape的名称来判断做不同的操作

如果3个Shape 共用相同的宏代码,但判断来自不同的Shape执行不同的操作

Sub 判断哪个Shape单击()
  strShpName = ActiveSheet.Shapes(Application.Caller).Name
  MsgBox "标题是 " & Application.Caller & " 来自: " & strShpName 
End Sub

分享