次の方法で共有


ShapeRange.Group メソッド (PowerPoint)

指定された範囲の図形をグループ化します。 グループ化した図形を 1 つの Shape オブジェクトとして返します。

構文

グループ

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

戻り値

Shape

注釈

グループ化された図形は 1 つの図形として扱われるため、図形をグループ化したりグループを解除したりすると、 Shapes コレクションのオブジェクト数が変わり、変更されたオブジェクト以降のインデックス番号は振り直されます。

次の使用例は、 myDocument に 2 つの図形を追加し、2 つの新しい図形をグループ化し、グループの塗りつぶしを設定し、グループを回転させ、グループを描画レイヤーの背面に送信します。

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes

    .AddShape(msoShapeCan, 50, 10, 100, 200).Name = "shpOne"

    .AddShape(msoShapeCube, 150, 250, 100, 200).Name = "shpTwo"

    With .Range(Array("shpOne", "shpTwo")).Group

        .Fill.PresetTextured msoTextureBlueTissuePaper

        .Rotation = 45

        .ZOrder msoSendToBack

    End With

End With

関連項目

ShapeRange オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。