Excel中快速删除指定区域内的图片 VBA代码实例 图文

2019年7月13日15:02:43 评论 2,476 views
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页

Excel做图片插入和更新的时候,很多百度来的代码会在代码运行之前删除所有图片,勉强凑合的时候这样没什么问题,但是有时候我们只希望删除局部区域的图片,比如下图

我们只希望删除红色区域的图片,前后图片不想动他,为此我写了一段代码,在这种场合下非常好用

删除指定区域内的图片代码如下

'Excel880出品 --2018 - 2 - 10 '

Sub DelPicByRng(rng As Range)

'删除指定单元格区域内的图片

Dim i As Integer, shps

Set shps = rng.Worksheet.Shapes

For i = shps.Count To 1 Step -1 '倒序循环图片

If Not Intersect(shps(i).TopLeftCell, rng) Is Nothing Then '检测到图片位置与本区域重叠 则删除

shps(i).Delete

End If

Next i

End Sub

使用方法

DelPicByRng [G2:G10000] '删除G2到G1000区域内的图片 其他区域不受影响

DelPicByRng selection '删除选定区域的图片 其他区域不受影响

本函数应用动画示范如下

上述动画为批量插入和更新图片,详解讲解请到我VBA175专栏查看,详见

表格定制加微信Excel880A,本号每天晚上9到11点在头条进行Excel直播教学,免费收看,欢迎各位捧场!

  • 郑广学老师微信号
  • EXCEL880B
  • weinxin
  • 我的微信公众号
  • EXCEL880
  • weinxin
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页

发表评论

您必须才能发表评论!