次の方法で共有

ShapeRange.Ungroup メソッド (Publisher)

  • [アーティクル]

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

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

構文

式。解除

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

戻り値

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