0

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

我需要知道其中哪一个被按下(左上行/列)。Application.Caller 正确识别了名称,但由于它有多个实例,因此我无法识别它按下了哪个实例。

由于我多次复制这些形状,因此希望它们都被称为相同的。

4

1 回答 1

0

根据上面 Tim Williams 的评论,可以通过以下方式唯一地重命名所有形状

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

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

于 2012-10-18T16:01:33.297 回答