PPT VBA：批量取消组合图形

一、思路

1.遍历演示文稿中的每一张幻灯片

2.遍历每张幻灯片中的每一个形状

3.判断该形状的类型是否为组合图形（msoGroup)；如果是，则将该图形取消组合（Ungroup）

4.完成

二、代码示例

Sub 拆分组合图形()
    Dim sp As Shape
    Dim sld As Slide
    For Each sld In ActivePresentation.Slides    '遍历每张幻灯片
        For Each sp In sld.Shapes                '遍历幻灯片中每个图形
            If sp.Type = msoGroup Then           '判断形状是否为组合图形
                sp.Ungroup                    '如果是组合图形，则取消组合
            End If
        Next
    Next
    MsgBox "完成！"
End Sub