Excel同形按钮的行形状和列

时间:2012-10-18 10:00:36

标签: excel vba

我的excel 07工作表上有各种相同的形状(相同的名称,相同的功能链接到它)。

我需要知道哪些是按下的(TopLeft Row / Column)。 Application.Caller正确识别名称,但由于它有多个实例,因此我无法识别它所按的是哪一个。

由于我复制形状很多次,所以希望它们都被称为相同。

1 个答案:

答案 0 :(得分:0)

根据Tim Williams的评论,单独重命名所有形状可以通过

完成
  Dim sh As Shape
  For Each sh In ActiveSheet.Shapes
       sh.Name = "Button_" & sh.ID
  Next sh

然后Application.Caller工作正常。对于某些应用程序,此解决方案可能看起来不太好,但它可以正常工作。