通过

Shape.Ungroup 方法 (Publisher)

  • 项目

取消对指定形状组或指定形状区域中的任意形状组进行分组。 如果指定的形状是图片或 OLE 对象，Microsoft Publisher 会将其拆分并转换为未组合的形状集。 例如，嵌入的 Microsoft Office Excel 电子表格将转换为行和文本框。

取消组合的形状以单个 ShapeRange 对象的形式返回。

语法

表达式。取消分组

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

返回值

ShapeRange

备注

对嵌入形状或不是组合、图片或 OLE 对象的形状使用该方法会出错。 同样，如果图片是位图、JPEG、GIF 或 PNG（可移植的网络图形）文件，也会出错。

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

同时，最近取消组合的形状将添加到当前页 (或页面) 上的 Shapes 集合或空闲区。 因此，他们可能会从一个集合移动到另一个。

示例

以下示例将当前出版物第一页上的所有组合形状取消组合。

Dim shpLoop As Shape 
 
For Each shpLoop In ActiveDocument.Pages(1).Shapes 
 If shpLoop.Type = pbGroup Then shpLoop.Ungroup 
Next shpLoop

支持和反馈

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