Ungroup 方法

取消指定图形或者图形区域中组合图形的组合。取消指定图形或图形区域中图片和 OLE 对象的组合。将组合取消后的图形以单个 ShapeRange 对象的形式返回。

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

说明

由于将组合图形作为单一的对象对待，因而组合图形或者取消图形的组合将改变的 Shapes 集合中的项数，进而影响与各项对应的索引序号。

示例

本示例将取消所有组合图形的组合，并取消 myDocument 中所有图片和 OLE 对象的组合。

Set myDocument = ActiveDocument
For Each s In myDocument.Shapes
    s.Ungroup
Next

本示例将取消 myDocument 中所有组合图形的组合，但并不取消文档中图片和 OLE 对象的组合。

Set myDocument = ActiveDocument
For Each s In myDocument.Shapes
    If s.Type = msoGroup Then s.Ungroup
Next