Ungroup 方法

取消对指定形状或形状范围内所有组合形状的组合。分解指定形状或形状范围内的图片和 OLE 对象。将取消组合的形状作为单个 ShapeRange 对象返回。

expression  必选。该表达式返回一个 ShapeRange 对象。

说明

由于将一组形状当作单个对象，所以对形状组合和取消组合将改变 Shapes 集合中的项目数，并且将改变部分项目的索引编号，这些项目位于集合中受影响的项目之后。

示例

本示例取消对 myDocument 中任何组合形状的组合，而且分解 myDocument 中任何图片或 OLE 对象。

Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
    s.Ungroup
Next

本示例取消对 myDocument 中任何组合形状的组合，但是并不分解幻灯片中的图片或 OLE 对象。

Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
    If s.Type = msoGroup Then s.Ungroup
Next