第六章 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
程序运行后效果如下:
联系客服