Shape.Ungroup 方法 (Word)

  • 项目

取消组合指定形状中的所有组合形状。

语法

表达式。取消分组

expression 是必需的。 一个代表 Shape 对象的变量。

返回值

ShapeRange

备注

此方法分解指定形状中的图片和 OLE 对象并将取消组合后的形状作为单个 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

另请参阅

形状对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。