如何删除某个选定区域内的全部按钮？

19811123lxys · 发表于 2010-12-26 19:37

求教高手了

不知道能不能实现这个效果，对于选定的某个区域，比如A1:B5，由于某个原因，有几百个按钮，能不能通过几条语句，将这个区域内的全部按钮删除？
先行拜谢啊

（其实那几百个按钮是高级筛选的时候，连着筛选出来了，每次筛选就出一个，结果操作多次，就很很多按钮在那里了。）

19811123lxys · 发表于 2010-12-26 19:48

等待高手啊

changxuegu · 发表于 2010-12-26 19:50

先复制，再选择性粘贴/数值

19811123lxys · 发表于 2010-12-26 20:01

呃，这个不是VBA论坛吗，呵呵，

19811123lxys · 发表于 2010-12-26 20:10

继续等待高手，记得以前曾经看过一个帖子，似乎使用
DIM X AS SHAPE
FOR EACH X IN ACTIVESHEET
X.DELETE
NEXT
这样的思路，但是该怎么弄呢，我忘了，继续等待高手啊

19811123lxys · 发表于 2010-12-26 20:21

哎呀，这个很难的吗？等待高手啊

19811123lxys · 发表于 2010-12-26 20:37

全部去掉的办法一：
Sub delbutton()
Dim x As Shape
For Each x In ActiveSheet.Shapes
MsgBox x.Name
x.Delete
Next x
End Sub

办法二：
activesheet.Shapes.SelectAll
selection.delete

问题是，怎么去掉某个指定区域内的按钮呢（其他区域的按钮要保留着）

19811123lxys · 发表于 2010-12-26 20:43

难道高手不肯现身？

jonn · 发表于 2011-1-24 10:21

换个思维方式。
把要的按钮拷贝到临时TEMP工作表-》回到原工作表全部删除按钮-》拷贝TEMP工作表中的按钮-》回到原工作表固定位置粘贴。

我就是用这种方式实现的。如果需要代码请提供附件我来帮你写

lujkhua · 发表于 2015-11-29 21:56

本帖最后由 lujkhua 于 2015-11-29 22:16 编辑

你没附件，请自已参照此代码，可批量删除指定名称的按钮

Sub 按钮3_Click()
For Each sh In Worksheets
For Each x In sh.Shapes
If x.AlternativeText = "返回目录" Then x.Delete
Next
Next
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 如何删除某个选定区域内的全部按钮？

目前只知道全部去掉的方法，不知道去掉某一区域按钮的办法