通过

Shape.Ungroup 方法 (Excel)

  • 项目

取消指定的形状或形状范围中所有组合的形状的组合。 取消指定形状或形状区域中图片和 OLE 对象的组合。

语法

表达式。取消分组

表达 一个代表 Shape 对象的变量。

返回值

一个 ShapeRange 对象，表示未组合的形状。

备注

由于一组形状被视为单个对象，因此对形状进行分组和取消组合会更改 Shapes 集合中的项数，并更改集合中受影响项之后的项目的索引号。

示例

以下示例取消组合 myDocument 中的所有组合形状，并分解所有的图片和 OLE 对象。

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

以下示例将取消组合 myDocument 中的所有组合形状，但不分解文档中图片或 OLE 对象。

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

支持和反馈

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