Excel-VBA删除存放在E列之外的图形对象

应用场景

一键清除不符合位置要求的所有图形对象

知识要点

1：Shape.Type 属性  返回或设置一个代表形状类型的 MsoShapeType 值 msoChart 图

2：Shape.TopLeftCell 属性  返回一个 Range 对象，它代表位于指定对象左上角下方的单元格

3：Shape.BottomRightCell 属性 返回一个 Range 对象，它代表位于该对象右下角下方的单元格

4：获取图形对象左上角\右下角的单元格,判断该区域与E列是否重叠且其类型不是图表（msochart）,则删除该对象

5：图形对象shapes包括标注、画布图、批注、图表、嵌入的OLE对象、窗体控件、任意多边形组合、文本框、艺术字等，在excel07之后还加了smartart图形

Sub 删除E列的图形对象()

    Dim sh As Shape  '声明图形对象变量

    For Each sh In ActiveSheet.Shapes '遍历本表所有图表对象

        If sh.Type <> msoChart Then  '如果不是图表

            '如果图形对象所覆盖的区域与E列重叠，那么删除该对象

            If Not Intersect(Range(sh.TopLeftCell, sh.BottomRightCell), [E:E]) Is Nothing Then sh.Delete

        End If

    Next sh

End Sub