一、思路
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