作者:乔山办公网日期:
返回目录:excel表格制作
表示图形菜单,然后追加显示复数对象选择按钮,用它可以批量删除窗体按钮
假设要清楚Sheet1中的各种按钮,在VBA中复制如下语句抄,运行即可:
Sub main()
Sheet1.DrawingObjects.Delete
end sub
关于此例中用袭到的DrawingObjects的相关知识:
VBA中图形对象一般使用Shapes,但Shapes不支持Select方法百,只支持Selectall,也不支持Delete方法,所以在度对图形对象进行删除时,就要用到图形对象集合的另外一问个称呼——DrawingObjects对象,以下代码为选择活动工作表中的所有图形对象:
Activesheet.DrawingObjects.Select
当然除了支持Select方法,DrawingObjects还支持Delete方法,所以对于图形对象进行删除时,就可以用上述答例子中的语句来实现,即:
Activesheet.DrawingObjects.Delete
选中或右击删除。 另外,是窗体上的还是Sheet里的?
假设你要关百闭的窗口名称属性为:UserForm1
1、如果你是要卸载窗口(释放内存),就在你的按钮的单击过度程中使用下面的语句:
Unload UserForm1
2、如果你只是要隐版藏窗口(驻留在内存中),就权在你的按钮的单击过程中使用下面的语句:
UserForm1.Hide