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

2019年7月13日15:02:43Excel中快速删除指定区域内的图片 VBA代码实例 图文已关闭评论 3,407 views
微信公众号 【EXCEL880】 QQ群【165159540】
课程咨询 加我微信EXCEL880B试学网址http://v.excel880.com

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直播教学,免费收看,欢迎各位捧场!