Excel VBA教程:Ungroup方法

应用于 Range对象的 Ungroup方法。

在分级显示中对一个区域进行升级(即降低其分级显示的级别)。指定区域必须是行或列,或者行区域或列区域。如果指定区域在数据透视表中,本方法将对该区域内的项取消分组。

expression.Ungroup

expression   必需。该表达式返回一个Range对象。

说明

如果当前单元格在父字段的字段标题中,则该字段中的所有分组将被取消,并且该字段从数据透视表中删除。当父字段中的最后一个分组被取消后,整个字段将从数据透视表中删除。

应用于 Shape 和 ShapeRange对象的 Ungroup方法。

将组合到指定的图形或图形区域中的图形取消组合。在指定的图形或图形区域内分解图片和 OLE对象。将取消组合的图形当作单个ShapeRange对象返回。

expression.Ungroup

expression   必需。该表达式返回上面的对象之一。

说明

因为把图形组合当作单个对象对待,所以对图形进行组合或取消组合操作时,将会更改 Shapes集合中项的数目,并更改集合中受影响的项之后的项的索引号。

Excel VBA教程:Ungroup方法·示例

应用于 Range对象。

本示例取消 ORDER_DATE 字段的分组。


Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable
Set groupRange = pvtTable.PivotFields("ORDER_DATE").DataRange
groupRange.Cells(1).Ungroup

应用于 Shape 和 ShapeRange对象。

本示例取消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

上页:Excel VBA教程:Undo方法 下页:Excel VBA教程:Union方法

Excel VBA教程:Ungroup方法

Excel VBA教程:Union方法 Excel VBA教程:UnMerge方法
Excel VBA教程:Unprotect方法 Excel VBA教程:UnprotectSharing方法
Excel VBA教程:Update方法 Excel VBA教程:UpdateFromFile方法
Excel VBA教程:UpdateLink方法 Excel VBA教程:UpdateNotify方法
Excel VBA教程:UseDefaultFolderSuffix方法 Excel VBA教程:UserPicture方法
Excel VBA教程:UserTextured方法 Excel VBA教程:Verb方法
Excel VBA教程:Volatile方法 Excel VBA教程:Wait方法
Excel VBA教程:WebPagePreview方法 Excel VBA教程:XYGroups方法
Excel VBA教程:ZOrder方法 Excel VBA教程:AddIn对象
Excel VBA教程:AddIns集合对象 Excel VBA教程:Adjustments对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号