excel - 可以移动的VBA按钮？

Question

在 VBA 中添加按钮时，我遇到了困难。

我有一个电子表格，它可能会扩展行或添加行。现在，我知道如何使用宏添加按钮的唯一方法（即，当您单击此按钮时，下面会出现另外三个按钮）是使用坐标系

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

但是，如果有人在单击按钮制作按钮之前在表单上方添加行，则这些坐标不再有效，并且三个按钮显示得比我想要的要高。

我绞尽脑汁想研究这个。是否有一些明显的方法可以使用单元格而不是坐标创建这些按钮，以便在上面添加多少行无关紧要？

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

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

任何帮助将不胜感激！

score 2 · Accepted Answer

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

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

1 回答 1