在分级显示中对一个区域进行升级(即降低其分级显示的级别)。指定区域必须是行或列,或者行区域或列区域。如果指定区域在数据透视表中,本方法将对该区域内的项取消分组。
expression.Ungroup
expression 必需。该表达式返回一个 Range 对象。
如果当前单元格在父字段的字段标题中,则该字段中的所有分组将被取消,并且该字段从数据透视表中删除。当父字段中的最后一个分组被取消后,整个字段将从数据透视表中删除。
应用于 Shape 和 ShapeRange 对象的 Ungroup 方法。
将组合到指定的图形或图形区域中的图形取消组合。在指定的图形或图形区域内分解图片和 OLE 对象。将取消组合的图形当作单个 ShapeRange 对象返回。
expression.Ungroup
expression 必需。该表达式返回上面的对象之一。
因为把图形组合当作单个对象对待,所以对图形进行组合或取消组合操作时,将会更改 Shapes 集合中项的数目,并更改集合中受影响的项之后的项的索引号。
本示例取消 ORDER_DATE 字段的分组。
Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable
Set groupRange = pvtTable.PivotFields("ORDER_DATE").DataRange
groupRange.Cells(1).Ungroup
本示例取消 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