可以移动的VBAbutton？

在添加VBA中的button时，我正在碰壁。

我有一个电子表格，可能有行扩大或有行添加到它。 现在，我知道如何使用macros添加button的唯一方法（即当您单击此button时，下面会出现三个button）与坐标系

With ActiveSheet.CheckBoxes.Add(185, 464, 72, 18) .Name = "firstcheckbox" .Caption = "CLICK ME" End With 

但是，如果有人在上面的表单中添加上面的行，他们点击button制作button，那些坐标不再好，三个button显示的比我想要的要高。

我试图研究这个，我已经折磨了一下。 有没有一些明显的方法来创build这些button与单元格，而不是坐标，以便有多less行上面添加无所谓？

 With ActiveSheet.CheckBoxes.Add.Range("C6") .Name = "firstcheckbox" .Caption = "CLICK ME" End With 

或类似的东西？ 还是我只限于坐标系？

任何帮助将不胜感激！

Answer 1

只需从Range中获取Left和Top属性，然后将它们传递给Checkboxes.Add ：

 With ActiveSheet.CheckBoxes.Add(Range("C6").Left, Range("C6").Top, 72, 18) .Name = "firstcheckbox" .Caption = "CLICK ME" End With