我有一本包含多张纸的工作簿，其中有一些数据在该范围内M1:O2。这三列的宽度可能因工作表而异，但是按钮应该添加到每张工作表中，而不会重叠数据。因此，与其使用这种典型方法，不如：
Set btn = ws.Buttons.Add(690, 4, 173.25, 41.25)
我想相对于单元格添加按钮，在我的情况下是cellQ1或Q2。那可能吗？或者，我可以找出细胞Q1的位置（即双值left和top）？
每个范围（一个单元格就是一个范围）都具有诸如left和top（以及width和height）的属性。
Dim r as Range
set r = ws.range("Q1")
Set btn = ws.Buttons.Add(r.left, r.top, 173.25, 41.25)
' To fit the button exactly into the cell, use:
' Set btn = ws.Buttons.Add(r.left, r.top, r.width, r.height)
' To ensure that the button stays always in the cell, use:
btn.Placement = xlMove
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句