[已解决]我想删除每个工作表中的命令按钮，这段代码为什么不能运行？

1091126096

各位大师：
    请教，我想删除每个工作表中的命令按钮，这段代码为什么不能运行？

1. Sub 删除按钮()
   
2. For Each SHT In Sheets
   
3. For Each SR In SHT.Shapes
   
4. SHT.Select
   
5. SHT.Shapes(SR).Select
   
6. SHT.Shapes(SR).Delete
   
7. Next SR
   
8. Next SHT
   
9. End Sub

复制代码

最佳答案

月排行榜 / 总排行榜

xdd_sky

2013-6-29 22:39

SHT.Shapes(SR).Select
SHT.Shapes(SR).Delete
把这两句代码中的sr改成sr.name  试试。。。

跳转到最佳答案楼层

xdd_sky

SHT.Shapes(SR).Select
SHT.Shapes(SR).Delete
把这两句代码中的sr改成sr.name  试试。。。

1091126096

xdd_sky 发表于 2013-6-29 22:39
SHT.Shapes(SR).Select
SHT.Shapes(SR).Delete
把这两句代码中的sr改成sr.name  试试。。。

这样依次可以删除1个，但不能全部删除。谢谢你的指点。

xdd_sky

1. Sub 删除按钮()
   
2. For Each SHT In Sheets
   
3. For Each SR In SHT.Shapes
   
4. SHT.Select
   
5. SHT.Shapes(SR.name).Select
   
6. SHT.Shapes(SR.name).Delete
   
7. Next SR
   
8. Next SHT
   
9. End Sub

复制代码

我测试这个代码  能全删除掉。。。。。不清楚你那是啥情况。。

hwc2ycy

不知道你要删除的是表单按钮还是ACTIVEX按钮。

1091126096

xdd_sky 发表于 2013-6-29 22:49
我测试这个代码  能全删除掉。。。。。不清楚你那是啥情况。。

我的工作表不连续，有很多工作表，有删除了部分工作表。加1个容错代码后可以运行了。谢谢！

hwc2ycy

来晚了，{:112:}

BAIXINGR