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

　　【问题】

　　想删除表中某一固定区域的所有表格怎么操作？

　　【解答】

　　可以使用如下程序代码：

　　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