应用场景
一键清除不符合位置要求的所有图形对象
知识要点
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
联系客服