应用场景 一键清除不符合位置要求的所有图形对象 知识要点 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 |
|
来自: L罗乐 > 《VBA常用小代码》