Excel VBA 删除所有对象

Joe.wong

求excel vba 删除工作表中所有对象的代码。（保留由 窗体 工具栏及 控件 工具箱产生的按钮 ）

      删除对象.rar (6.74 KB, 下载次数: 63)

2011-11-7 13:01 上传

点击文件名下载附件

。

下锅的鱼

删除对象.rar (9.76 KB, 下载次数: 81)

2011-11-7 13:23 上传

点击文件名下载附件

试试看一下,符合你的要求吗

Joe.wong

下锅的鱼 发表于 2011-11-7 13:24
试试看一下,符合你的要求吗

不符合要求。

保留由 窗体 工具栏及 控件 工具箱产生的按钮

wpxxsyzx

Dim shp As Shape
For Each shp In Sheet1.Shapes
    If shp.Type <> 8 And shp.Type <> 12 Then
        shp.Delete
    End If
Next

下锅的鱼

Sub 按钮6_Click()
Dim myshape As Shape
    For Each myshape In Sheet1.Shapes
         If myshape.Name <> "" Then
            
            myshape.Delete
        End If
    Next
End Sub

wpxxsyzx

测试附件：

Joe.wong

wpxxsyzx 发表于 2011-11-7 13:33 Dim shp As Shape For Each shp In Sheet1.Shapes If shp.Type 8 And shp.Type 12 Then

感谢指点，这个可以用。

xxxx01

工作薄共十几张表，单独复制出一张表新建工作薄，使用这个工具还行，但在这个工作薄中使用，运行vba,不就是没有反应，不就是显示内存溢出。