VBA删除指定区域图片触发1004错误的排查与解决问询

问题背景 #

我需要在指定区域（rngOblastVlozeni）插入图片前，删除该区域内所有已有图片，编写的VBA代码在部分场景下触发Run-time error '1004'应用程序定义或对象定义错误，错误出现在判断shpObjekt.TopLeftCell与目标区域交集的代码行。

排查情况：

• 工作表中有两张图片和一个图表，删除这些可见对象后错误仍存在
• 空区域插入图片时，前两个Shape对象无错误，第三个触发错误
• 区域有图片时，前三个正常，第四个触发错误
• 其他工作表运行相同代码无异常，推测当前工作表存在无法找到的隐藏Shape对象

问题1：工作表中是否可能存在未发现的Shape对象？如何识别这类对象？ #

• 确实存在这类情况，常见的“隐形”Shape包括：
  • 设置了Visible = xlSheetHidden或xlVeryHidden的对象，普通视图完全看不到
  • 嵌入的OLE对象、表单控件/ActiveX控件，这类都属于Shape集合但常被忽略
  • 被拖到工作表可视区域外（比如行号列标之外）的Shape
• 识别方法：
  1. 打开VBA编辑器，按Ctrl+G调出立即窗口，输入以下代码回车，可列出当前工作表所有Shape的名称、类型和可见性：

     For Each shp In ActiveSheet.Shapes: Debug.Print shp.Name, shp.Type, shp.Visible: Next
     

  2. 在Excel界面，点击开始→查找和选择→选择对象，拖动鼠标框选整个工作表，所有Shape（包括隐藏的）都会被选中，此时在格式选项卡可查看选中对象的数量和基础信息
  3. 手动检查工作表边缘区域，有些Shape可能被移到了可视范围外

问题2：如何仅在上述交集判断行触发1004错误时，跳过当前Shape对象并继续循环执行？ #

使用针对性的错误捕获机制，只忽略指定的1004错误，不影响其他代码的错误提示。示例代码如下：

Dim shpObjekt As Shape
Dim rngCil As Range
Set rngCil = rngOblastVlozeni ' 你的目标区域

For Each shpObjekt In ActiveSheet.Shapes
    On Error Resume Next ' 临时开启错误捕获
    ' 执行触发错误的交集判断代码
    Dim intersectRng As Range
    Set intersectRng = Intersect(shpObjekt.TopLeftCell, rngCil)
    
    If Err.Number = 1004 Then ' 仅处理1004错误
        Err.Clear ' 清除错误状态
        On Error GoTo 0 ' 关闭错误捕获
        Continue For ' 跳过当前Shape，进入下一次循环
    End If
    On Error GoTo 0 ' 关闭错误捕获，恢复正常错误提示
    
    ' 正常处理逻辑：如果Shape在目标区域内则删除
    If Not intersectRng Is Nothing Then
        shpObjekt.Delete
    End If
Next shpObjekt

说明：

• On Error Resume Next仅临时生效，只覆盖后续的交集判断行
• 捕获到1004错误后立即清除错误并跳过当前对象，避免影响后续循环
• 处理完错误后立刻关闭错误捕获，防止其他代码的错误被掩盖

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