Excel VBA问题：如何删除组合内指定名称的形状？

你的代码只能处理工作表顶层非组合形状，因为组合对象（Group）里的子形状并不直接属于工作表的Shapes集合，而是嵌套在组合对象的GroupItems集合里。原来的循环根本没遍历到组合内的目标形状，自然无法执行删除操作。

下面是修改后的代码，通过递归遍历所有层级的形状（包括嵌套组合），找到目标形状后删除：

Sub DeleteShape(SheetName As String, ShapeName As String)
    Dim shp As Shape
    ' 遍历工作表顶层所有形状
    For Each shp In ThisWorkbook.Sheets(SheetName).Shapes
        Call TraverseAndDeleteShape(shp, ShapeName)
    Next shp
End Sub

' 递归遍历形状（含组合内子形状）并删除目标
Private Sub TraverseAndDeleteShape(targetShp As Shape, shapeToDelete As String)
    Dim subShp As Shape
    ' 如果当前形状是组合，遍历其内部子形状
    If targetShp.Type = msoGroup Then
        For Each subShp In targetShp.GroupItems
            Call TraverseAndDeleteShape(subShp, shapeToDelete)
        Next subShp
    Else
        ' 非组合形状，判断名称是否匹配，匹配则删除
        If targetShp.Name = shapeToDelete Then
            targetShp.Delete
        End If
    End If
End Sub

代码说明 #

• TraverseAndDeleteShape是递归子程序：遇到组合形状就深入遍历内部子形状，遇到普通形状就检查名称，匹配则执行删除。
• 主程序DeleteShape负责启动遍历，把工作表的每个顶层形状都传给递归函数处理，确保不会漏掉任何层级的形状。

内容的提问来源于stack exchange，提问作者Rihards Roziņš