如何删除固定区域的所有图形？

米兰

　　【问题】
　　想删除表中某一固定区域的所有表格怎么操作？
　　【解答】
　　可以使用如下程序代码：
　　Sub 去除指定范围内的对象()
　　Dim p As Shape
　　Set My = Worksheets("工作表名")
　　For Each p In My.Shapes
　　If Not Application.Intersect(p.TopLeftCell, Range("范围")) Is Nothing Then p.Delete
　　Next
　　End Sub          相关热词： 删除 固定区域 所有图形 会计电算化 excel