取消指定图形或者图形区域中组合图形的组合。取消指定图形或图形区域中图片和 OLE 对象的组合。将组合取消后的图形以单个 ShapeRange 对象的形式返回。
expression.Ungroup
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