Share via

PowerPoint) (ShapeRange.Ungroup 方法

  • 發行項

將指定的圖案或圖案範圍中任何群組的圖案取消群組。 分解圖片與 OLE 物件指定的圖案或圖案範圍內。 傳回已取消群組的圖案成為單一 ShapeRange 物件。

語法

運算式。取消群組

表達 代表 ShapeRange 物件的 變數。

傳回值

ShapeRange

註解

因為圖案群組被視為群組及取消群組圖案變更圖形的 Shapes 集合中的項目數的單一物件並變更集合中受影響的項目之後的項目索引編號。

範例

這個範例會將 myDocument 中的任何群組圖案取消群組，並分解所有的圖片及 OLE 物件。

Set myDocument = ActivePresentation.Slides(1)

For Each s In myDocument.Shapes

    s.Ungroup

Next

在這個範例中，會取消 myDocument 上任何已群組圖案的群組設定，但不將投影片上的圖片或 OLE 物件分解成獨立物件。

Set myDocument = ActivePresentation.Slides(1)

For Each s In myDocument.Shapes

    If s.Type = msoGroup Then s.Ungroup

Next

另請參閱

ShapeRange 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。