Excel VBA删除指定形状问题：含Picture*的形状无法删除求修正

咱们先拆解下你原来代码里的问题，再给出能正常运行的解决方案：

原代码的核心问题 #

代码1的问题 #

1. 条件判断逻辑错误：If Pic.Name = PicName Or PicName2 Or PicName3 Then 不符合VBA语法，Or 两侧需要完整的条件判断，不能只写变量名；另外匹配通配符要使用 Like 而非 =。
2. 删除逻辑混乱：循环遍历Pictures时，硬编码重复删除指定名称的形状（比如每次循环都删一次Cable_Number，即使它已经被删除），且 ActiveSheet.Shapes("*Picture*").Delete 写法无效——Shapes的索引不支持通配符，无法直接批量删除。
3. On Error Resume Next 掩盖问题：它会跳过执行错误，但也让你无法察觉代码运行中的异常（比如目标形状不存在时的报错）。

代码2的问题 #

1. 删除操作错误：ActiveSheet.Shapes.Delete 会删除工作表内所有形状，而非当前匹配的目标图片，完全偏离需求。
2. 功能不完整：仅处理了Picture系列形状，未包含你需要删除的Cable_Number和Divider。

修正后的代码方案 #

推荐直接遍历工作表的Shapes集合（因为Picture本质是Shapes的子类，这样能统一处理所有目标形状），逐个判断并删除：

Sub DeleteTargetShapes()
    Dim shp As Shape
    Application.ScreenUpdating = False ' 关闭屏幕刷新提升执行效率
    
    ' 遍历工作表内所有形状
    For Each shp In ActiveSheet.Shapes
        ' 判断是否为目标形状：匹配固定名称，或名称包含Picture（通配符匹配）
        If shp.Name = "Cable_Number" _
            Or shp.Name = "Divider" _
            Or shp.Name Like "*Picture*" Then
            
            shp.Delete ' 删除当前匹配的形状
        End If
    Next shp
    
    Application.ScreenUpdating = True ' 恢复屏幕刷新
End Sub

代码说明 #

1. 统一遍历Shapes集合：相比单独遍历Pictures，Shapes包含所有类型的形状，能同时处理固定名称和通配符匹配的目标，逻辑更简洁。
2. 正确的条件判断：对固定名称用=精准匹配，对模糊匹配用Like结合通配符，符合VBA语法规范。
3. 精准删除当前形状：每次循环判断后直接删除当前shp对象，避免重复操作或误删无关形状。
4. 屏幕刷新控制：关闭刷新能大幅提升代码运行速度，尤其是形状数量较多时。

备选方案：仅遍历Picture类型形状 #

如果你只想针对图片类形状处理，同时单独删除固定名称的形状，可以用这个版本：

Sub DeletePicturesAndTargets()
    Dim pic As Picture
    Dim targetShapes As Variant
    Dim shpName As Variant
    
    Application.ScreenUpdating = False
    
    ' 先一次性删除固定名称的形状（避免循环内重复操作）
    targetShapes = Array("Cable_Number", "Divider")
    For Each shpName In targetShapes
        On Error Resume Next ' 防止目标形状不存在时报错
        ActiveSheet.Shapes(shpName).Delete
        On Error GoTo 0 ' 恢复正常错误捕获
    Next shpName
    
    ' 遍历所有Picture，删除名称匹配*Picture*的图片
    For Each pic In ActiveSheet.Pictures
        If pic.Name Like "*Picture*" Then
            pic.Delete
        End If
    Next pic
    
    Application.ScreenUpdating = True
End Sub

这个版本先单独处理固定名称的形状，再遍历图片类形状完成删除，逻辑分层更清晰。

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