Shape.Ungroup メソッド (Publisher)

指定された図形グループ、または指定された図形範囲のすべての図形グループのグループ化を解除します。 指定された図形が図または OLE オブジェクトの場合、これらは分解されて、グループ化されていない図形の集合に変換されます。 たとえば、埋め込まれた Microsoft Office Excel スプレッドシートは、行とテキスト ボックスに変換されます。

グループ化されていない図形を 1 つの ShapeRange オブジェクトとして返します。

構文

式。解除

式Shape オブジェクトを表す変数。

戻り値

ShapeRange

注釈

インライン図形あるいはグループ、図、または OLE オブジェクト以外の図形に対してこのメソッドを使用すると、エラーが発生します。 また、図がビットマップ、JPEG、GIF、または PNG (ポータブル ネットワーク グラフィックス) ファイルである場合もエラーが発生します。

図形のグループでは、1 つのオブジェクト、グループ化して、 Shapes コレクション内の項目の数の図形の変更をグループ解除として扱われ、コレクション内の影響を受ける項目の後にある項目のインデックス番号を変更します。

Shapes コレクションの現在のページ (またはページ) をまた、新しくグループ化されていない図形を追加またはスクラッチ領域です。 その結果、別に 1 つのコレクションから、変わることがあります。

例

次の使用例は、作業中の文書の先頭ページで、図形のグループ化をすべて解除します。

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 のサポートおよびフィードバックを参照してください。