您的位置：程序门 -> vb -> vba

您好，请教一个关于excel中群组的问题！

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

[向提问]您好，请教一个关于excel中群组的问题！

发表于：2008-01-11 22:34:06 楼主

问题：在excel当前页面中除了一个自定义图形作按钮之外，就只有line和textbox，现在我需要通过宏的方式删除当前页面上的所有的line和textbox,并且保留用作按钮的自定义图形，请教如何实现？
我用下面的方法，结果执行完了，那个按钮也被删除了，
activesheet.shapes.selectall
selection.delete
本想在上面这个方法中添加重新创建该按钮并链接到指定的宏的过程，但是还是觉得应该有更好的方法，只是自己不知道。
在此先谢谢了，帮忙看看

发表于：2008-01-11 23:34:031楼得分:0

帮顶一下~~

发表于：2008-01-12 10:20:392楼得分:0

sub aa（)'让你的图形指定这个宏
debug.print application.caller
end sub
sub tt（)'在立即窗体中copy图形名称，填到[]中，别加""啊
sheets（1).[图形名称].delete
end sub

发表于：2008-01-12 10:28:493楼得分:0

sub aa（)
dim s as shape
for each s in sheets（1).shapes
'debug.print s.name'看看你的图形叫什么名先
if instr（1, s.name, "oval") = 0 then'如果不是你要的图就删
s.delete
end if
next
end sub

发表于：2008-01-13 00:32:564楼得分:0

sub macro1（)
dim sh as shape
for each sh in activesheet.shapes
if sh.name like "text*" or sh.name like "line*" then sh.delete
next
end sub

下一篇：急求一段小程序，怎么样循环生成 excel 文件然后保存到制定文件夹下。
上一篇：运行错误“13”，类型不匹配？？

其他资讯