本示例将取消活动文档中选中的组合图形的组合。

Selection.ShapeRange.Ungroup