使用VBA删除指定范围内图片时遇到的问题

我需要删除Excel工作表指定范围（B2:B7）内的所有图片，先后尝试了三段VBA代码均无法运行，具体情况及背景如下：

第一段尝试的代码（无提示中断） #

代码在For Each OBR In ActiveSheet.Pictures处无提示中断，无法继续执行：

Dim OBR as Picture
For Each OBR In ActiveSheet.Pictures
    If Not Intersect(OBR.TopLeftCell, Range("B2:B7")) Is Nothing Then
        OBR.Delete
    End If
Next OBR

第二段尝试的论坛代码（同样故障） #

同样在遍历ActiveSheet.Pictures时出现无提示中断：

Dim xPicRg As Range
Dim xpic As Picture
Dim xRg As Range

Set xRg = Range("B2:B7")
For Each xpic In ActiveSheet.Pictures
    Set xPicRg = Range(xpic.TopLeftCell.Address & ":" & xpic.BottomRightCell.Address)
    If Not Intersect(xRg, xPicRg) Is Nothing Then xpic.Delete
Next

第三段按名称筛选的代码（仍无法运行） #

For i = 1 To ActiveSheet.Pictures.count
    If Not ActiveSheet.Pictures(i).Name = ob100 Or ActiveSheet.Pictures(i).Name = ob125 Then
        ActiveSheet.Pictures(i).Delete
    Else
    End If
Next i

背景补充 #

• ActiveSheet.Pictures.count返回值为8，其中包含2个实际是复选框的对象（名称为ob100、ob125），剩余6个是需要删除的目标图片；
• 工作表同时存在10个Shape对象。

首个宏无法运行的原因分析 #

1. 非标准Picture对象触发隐性错误
   旧式表单控件（如你提到的复选框ob100、ob125）在部分Excel版本中会被错误纳入Pictures集合，但这类对象并不支持标准Picture的TopLeftCell属性。当代码遍历到这类对象时，访问该属性会触发未显示的运行时错误，导致代码无提示中断（默认情况下Excel可能关闭了错误提示）。

2. 遍历动态集合的潜在冲突
   For Each遍历Pictures集合时，若中途删除元素，可能导致集合索引混乱，但这个问题通常不会直接导致无提示中断，核心原因还是非标准对象的属性访问异常。

修复方案 #

方案1：从后往前遍历+跳过异常对象

通过反向遍历避免集合索引混乱，同时添加错误捕获跳过无法正常访问属性的对象：

Dim i As Integer
Dim targetRng As Range
Set targetRng = ActiveSheet.Range("B2:B7")

' 从后往前遍历，避免删除元素导致的索引错位
For i = ActiveSheet.Pictures.Count To 1 Step -1
    On Error Resume Next ' 临时跳过错误
    Dim picTopLeft As Range
    Set picTopLeft = ActiveSheet.Pictures(i).TopLeftCell
    If Err.Number = 0 Then ' 仅处理能正常获取属性的对象
        If Not Intersect(picTopLeft, targetRng) Is Nothing Then
            ActiveSheet.Pictures(i).Delete
        End If
    End If
    On Error GoTo 0 ' 恢复默认错误处理
Next i

方案2：通过Shapes集合精准筛选图片

直接遍历Shapes集合，通过Type属性仅处理图片类型的对象，彻底避开表单控件：

Dim shp As Shape
Dim targetRng As Range
Set targetRng = ActiveSheet.Range("B2:B7")

For Each shp In ActiveSheet.Shapes
    ' 仅处理标准图片对象
    If shp.Type = msoPicture Then
        If Not Intersect(shp.TopLeftCell, targetRng) Is Nothing Then
            shp.Delete
        End If
    End If
Next shp

这个方案更稳定，因为Shapes集合能准确区分对象类型，不会把表单控件误判为图片。

内容的提问来源于stack exchange，提问作者Vecernice