学习VBA，报表做到飞 第六章 Shapes对象 6.2 删除Shapes对象

第六章 Shapes对象

6.2 删除Shapes对象

就象下面表格里有多个Shape对象：

我们现在想把它们全删除掉，怎么做最简便呢？

Sub shape全删除()

ActiveSheet.Shapes.SelectAll

Selection.Delete

End Sub

首先选择当前工作表里的所有Shapes对象，然后做删除处理。

不过有时候，我们不想删除掉所有的Shapes对象，比如上图的图片我们就不想删除，那么我们可以用Shape.Type属性值来做有选择的删除。

在上一节里，我们用Shape.Type分别弹出了每个Shapes对象的属性值，知道了图片的属性值是13，那么代码就可以这样写：

Sub shape有选择删除()

Dim sp As Shape

For Each sp In ActiveSheet.Shapes

sp.Select

If sp.Type <> 13 Then

sp.Delete

End If

Next

End Sub

程序运行后效果如下：