Excel VBA宏需求：批量取消工作簿中所有形状的组合

你提供的Word宏没法在Excel里运行，因为两者的对象模型完全不同——比如ActiveDocument、WrapFormat都是Word专属的属性和对象。下面是适配Excel的VBA宏，能一次性取消当前工作簿内所有工作表的所有组合形状，包括嵌套的多层组合：

Sub UngroupAllShapesInWorkbook()
    Dim ws As Worksheet
    Dim shp As Shape
    Dim groupedShapes As Shapes
    
    ' 遍历工作簿中的每一张工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 倒序遍历形状，避免取消组合后形状数量变化导致漏处理
        For i = ws.Shapes.Count To 1 Step -1
            Set shp = ws.Shapes(i)
            ' 判断当前形状是否为组合类型
            If shp.Type = msoGroup Then
                ' 取消组合，获取拆分后的形状集合
                Set groupedShapes = shp.Ungroup
                ' 递归处理嵌套的组合形状（如果存在）
                UngroupNestedShapes groupedShapes
            End If
        Next i
    Next ws
End Sub

' 辅助宏：递归拆分嵌套的组合形状
Sub UngroupNestedShapes(targetShapes As Shapes)
    Dim shp As Shape
    Dim nestedGrouped As Shapes
    
    For i = targetShapes.Count To 1 Step -1
        Set shp = targetShapes(i)
        If shp.Type = msoGroup Then
            Set nestedGrouped = shp.Ungroup
            UngroupNestedShapes nestedGrouped
        End If
    Next i
End Sub

核心说明： #

• 倒序遍历形状：取消组合会减少工作表的形状总数，正序遍历会跳过部分形状，倒序则能避免这个问题。
• 递归处理嵌套组合：如果你的组合里还套着其他组合，这个宏会逐层拆分，确保所有形状都变为独立状态。
• ThisWorkbook指代当前运行宏的工作簿，若要处理当前激活的工作簿，替换为ActiveWorkbook即可。

和你提供的Word宏的差异： #

• Excel没有ActiveDocument对象，对应工作簿的对象是Workbook，工作表是Worksheet。
• Excel形状不需要设置文本环绕（WrapFormat），这是Word专属的文本排版属性，Excel完全不需要这部分代码。
• Excel的Ungroup方法会返回拆分后的形状集合，刚好用来处理嵌套组合的场景。

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