将所有按钮数据记录后对表格进行操作，再利用原来记录的数据重新插入按钮

zwj19850918

我的表格中有一些按钮，想利用For each语句将按钮的信息保存至数组中

对表格进行一些操作后（删除行列等），再利用原来存贮在数组中的数据来重建按钮，以保证按钮位置不变，

但是执行程序时报错下标越界，请各位大佬指导下我这几个语句哪里有问题，先谢谢了！

饮冰e士

VBA在程序开发方面，局限性还是太大了。

如果工作表有一个删除行、列的事件，在执行删除动作前来操作，可能就会方便很多了。
否则，在删除行列的时候，有可能直接把图形也给删掉了，这时对于重新定位来说，就没有意义了。
可以考虑，在删除前，先选中区域，判断选中区域是否有图形，若有就统一下移或者右移，然后再删除行列。
按钮信息，用一个数组（name,top,left,Height，Width）来保存，也许会方便点。

lss001

Sub 锁定形状位置大小()
Dim sht As Worksheet, shp As Shape

'指定工作表
Set sht = ActiveSheet
'遍历当前工作表上的所有形状/按钮
For Each shp In sht.Shapes
      '锁定形状位置大小
      '删除单元格时不对形状产生任何影响
      shp.Placement = xlFreeFloating
Next

'删除第一至第十行试试？
sht.Rows("1:10").Delete
End Sub

ycylz15

ubound(buttontop)-1