我的excel 07工作表上有各种相同的形状(相同的名称,相同的功能链接到它)。
我需要知道哪些是按下的(TopLeft Row / Column)。 Application.Caller正确识别名称,但由于它有多个实例,因此我无法识别它所按的是哪一个。
由于我复制形状很多次,所以希望它们都被称为相同。
答案 0 :(得分:0)
根据Tim Williams的评论,单独重命名所有形状可以通过
完成 Dim sh As Shape
For Each sh In ActiveSheet.Shapes
sh.Name = "Button_" & sh.ID
Next sh
然后Application.Caller工作正常。对于某些应用程序,此解决方案可能看起来不太好,但它可以正常工作。