作者：乔山办公网日期：
返回目录：excel表格制作
简单的方法是 另存为“.xls”的格式保存,然后关闭然后打开...
可用下面的语句百。如果要按名度称删除回，可以加一个判断语答句。
Dim objShp As Object
For Each objShp In ActiveSheet.Shapes
objShp.Delete
Next
Public Sub 清除自本百工作表度()
Worksheets("sheet1").UsedRange.ClearContents
End Sub
Public Sub 清除所有问表答()
Dim WS As Worksheet
For Each WS In Worksheets
WS.UsedRange.ClearContents
Next
End Sub
假设要清楚Sheet1中的各种按钮zd，在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