Excel中快速删除指定区域内的图片 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视频教学专栏学习 百度搜索VBA 175例即可

Excel880刚出的新书 欢迎大家支持!