Shape.Ungroup 方法 (Publisher)

將指定的圖案群組或指定圖案範圍中的任何圖案群組取消群組。 如果指定的圖案是圖片或 OLE 物件，Microsoft Publisher 會將它分開，並將它轉換成一組未分組的圖案。 例如，內嵌的 Microsoft Office Excel 試算表會轉換成行和文字方塊。

傳回已取消群組的圖案成為單一 ShapeRange 物件。

語法

運算式。取消群組

表達 代表 Shape 物件的變數。

傳回值

ShapeRange

註解

在內嵌圖案或不是群組，圖片，或 OLE 物件的圖案使用本方法會產生錯誤。 同時，如果圖片是 bitmap, JPEG, GIF, 或 PNG (Portable Network Graphics) 檔案也會發生錯誤。

因為圖案群組被視為群組及取消群組圖案變更圖形的 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 支援與意見反應。