新用户扫码下载
扫码下载APP
及时接收最新考试资讯及
备考信息
如何删除固定区域的所有图形？
【问题】
想删除表中某一固定区域的所有表格怎么操作？
【解答】
可以使用如下程序代码：
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
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
上一篇：如何删除表格内的特定数值？
学员讨论（0）
暂无评论，快评论吧～
新用户扫码下载
京公网安备 11010802044457号