使用For Each从Excel工作表删除图片时出现1004错误代码

错误原因 #

1. For Each循环的集合变更问题：在For Each循环中删除Shapes集合元素时，集合结构会实时改变，导致后续元素引用失效，触发1004错误。
2. ActiveSheet的不确定性：若操作时激活的不是目标工作表，ActiveSheet.Shapes会指向错误对象，要么删错内容要么报错。
3. 部分Shape无TopLeftCell属性：少数特殊类型的Shape（如部分表单控件）没有该属性，直接访问会引发错误。

修复后的代码 #

Sub ResetFormImages()
    Dim ws As Worksheet
    Dim rngTarget As Range
    Dim i As Long
    
    ' 固定目标工作表，避免ActiveSheet的不确定性
    Set ws = ThisWorkbook.Sheets("Klachtformulier")
    ' 定义图片所在的目标区域
    Set rngTarget = ws.Range("A43:H47")
    
    ' 从后往前遍历，避免删除元素导致的集合索引混乱
    For i = ws.Shapes.Count To 1 Step -1
        With ws.Shapes(i)
            ' 仅处理图片类型的Shape，避免误删其他控件
            If .Type = msoPicture Then
                ' 判断Shape左上角是否在目标范围内
                If Not Intersect(.TopLeftCell, rngTarget) Is Nothing Then
                    .Delete
                End If
            End If
        End With
    Next i
End Sub

关键修改说明 #

• 反向循环遍历：从Shapes.Count倒序到1遍历，删除元素后不会打乱剩余元素的索引，彻底避免循环中引用失效的问题。
• 固定目标工作表：直接指定ThisWorkbook.Sheets("Klachtformulier")，完全摆脱ActiveSheet的不确定性，确保操作对象正确。
• 增加类型筛选：通过.Type = msoPicture仅处理图片Shape，既避免误删表单控件，也跳过了无TopLeftCell属性的特殊Shape。
• 简化逻辑结构：移除空分支，直接判断条件后执行删除，代码更简洁清晰。

额外优化建议 #

• 若表单有需要保留的固定控件（如提交按钮），可给控件设置专属名称，在循环中增加If .Name <> "保留控件名称"的判断，避免误删。
• 在代码开头添加Application.ScreenUpdating = False，结尾添加Application.ScreenUpdating = True，提升执行速度并消除屏幕闪烁。

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