获取形状的名称

taoke11

小弟希望选中某个形状的时候，或者鼠标移动到某个形状区域内的时候，即在A1单元格内显示该形状的名称
实验很久都不行，希望大神可以解惑
示例.rar (14.83 KB, 下载次数: 5)

2024-3-8 14:54 上传

点击文件名下载附件

aman1516

请测试：
示例.rar (15.77 KB, 下载次数: 17)

2024-3-8 15:30 上传

点击文件名下载附件

aman1516

A1单元格显示：

1. Public Sub GetShpName()
   
2.     On Error Resume Next
   
3.     Dim shp As Shape
   
4.     Set shp = ActiveSheet.Shapes(Application.Caller)
   
5.     'MsgBox shp.Name
   
6.     Range("A1") = shp.Name
   
7. End Sub
   
8. 
   
9. Sub AddOnA()
   
10.     Dim Sh As Shape
    
11.     With ActiveSheet
    
12.         For Each Sh In .Shapes
    
13.             Sh.OnAction = "GetShpName"
    
14.         Next Sh
    
15.     End With
    
16. End Sub

复制代码

taoke11

aman1516 发表于 2024-3-8 15:30
请测试：

感谢大哥给我灵感