删除指定区域的图形或对象

前言

当来自网页的数据复制到EXCEL中时，会存在大量的图形，按钮或其他莫名其妙的对象，那么如何全部删除这些对象或者删除某一个区域的对象呢？

1删除全部图形

快速定位法：

当EXCEL中插入多个图形时，如果要全部删除，可以采用定位的方法：

F5，定位，对象，确定

所有的图形会被选中，按DEL键即可全部删除。

也可以用VBA:

Sub deleteshapes()

ActiveSheet.Shapes.SelectAll

Selection.Delete

End sub

2指定区域的图形删除

如果要删除特定区域的图形，可以在VBA中这样写：

Sub deleteshapes()

Dim p  As Shape

For Each p In activesheet.Shapes

If NotApplication.Intersect(p.TopLeftCell, Range("c4:f15")) Is Nothing Then

p.Delete

End If

Next

End Sub

程序通过遍历活动工作表的所有图形，判断：如果图形的左上角单元格和指定区域有交集，则删除该图形。

上述代码中RANG(“c4:f15”)可以根据调整范围，注意只有图形的左上角的单元格和指定区域有交集才可以删除，如下图所示，如果指定区域为RANG(“c4:f15”)，即红色方框，运行程序只能删除图形5,6,8,9。其他图形的左上角单元格均与区域C4：F15无交集，故无法删除，因此如果要全部删除下面的图形，区域要选的大一点，整个把图形框进去，如黑色方框的区域就可以把下面的图形，全部删除。

上述图示：灰色单元格为图形的左上角单元格，与红色框有交集的只有图形5,6,8,9。所有图形的左上角单元格与黑色框均有交集。

当然，也可以将选择工具调出来，直接框选图形。

方法：

在工具栏上点击右键，自定义快速访问工具栏

选择所有命令

下拉，找到选择对象，添加，确定即可。

此时在快速访问工具栏上多了一个箭头模样的选择按钮，用鼠标点击该按钮，就可以在EXCEL中框选多个图像或点击多个图形。

结论

F5快速定位法，删除全部

选择按钮，框选或点击图形进行选择

VBA更加灵活，适用于对指定区域的图像进行定位删除

多一种方法，多一种选择。

END