求图形所在组合的名称

aman1516

一个简单的问题居然卡住了，如题如图如附件：

详见附件：
求图形所在组合的名称.rar (8.45 KB, 下载次数: 9)

2023-3-27 00:04 上传

点击文件名下载附件

aman1516

尝试用：
    Set shp = ActiveSheet.Shapes(Application.Caller)
    MsgBox shp.Name
未果......

fanyoulin

1、在插入图形的时候最好给指定.action，不然你可能不能获得鼠标的响应。既然你已经预设了图形，所以还需要再对其设定一遍.action：

Sub aaa()
Dim sp As Shape
For Each sp In ActiveSheet.Shapes
      sp.OnAction = "MouseDown"
Next
End Sub


2、再写一个对应的 MouseDown

Sub MouseDown()
Cells(1, 1) = Application.Caller
End Sub

Yalishanda30

aman1516 发表于 2023-3-27 00:13
尝试用：
    Set shp = ActiveSheet.Shapes(Application.Caller)
    MsgBox shp.Name

供参考。。。。。。

Yalishanda30

aman1516 发表于 2023-3-27 00:13
尝试用：
    Set shp = ActiveSheet.Shapes(Application.Caller)
    MsgBox shp.Name

审核。。。。。。

493861364

参考4楼老师的代码，试了试，使用selection或者直接指定形状名称都可以

aman1516

fanyoulin 发表于 2023-3-27 09:07
1、在插入图形的时候最好给指定.action，不然你可能不能获得鼠标的响应。既然你已经预设了图形，所以还需要 ...

是这样设定的，但得到的只是选择定图形名称
4 楼正解

aman1516

Yalishanda30 发表于 2023-3-27 10:20
审核。。。。。。

就是子找父的属性，正是所需
感谢帮助