ShapeRange メソッド (PowerPoint)ShapeRange.Group method (PowerPoint)

指定された範囲の図形をグループ化します。Groups the shapes in the specified range. グループ化された図形を1つの**Shape** オブジェクトとして返します。Returns the grouped shapes as a single Shape object.

構文Syntax

グループexpression.Group

ShapeRange オブジェクトを表す変数を取得します。expression A variable that represents a ShapeRange object.

戻り値Return value

ShapeShape

注釈Remarks

グループ化された図形は 1 つの図形として扱われるため、図形をグループ化したりグループを解除したりすると、 Shapes コレクション内の項目の数、およびコレクション内の影響を受ける項目の後にある項目のインデックス番号が変わります。Because a group of shapes is treated as a single shape, grouping and ungrouping shapes changes the number of items in the Shapes collection and changes the index numbers of items that come after the affected items in the collection.

Example

次の使用例は、 _myDocument_に2つの図形を追加し、その2つの図形をグループ化します。グループの塗りつぶしを設定し、グループを回転して、そのグループを描画レイヤーの最背面に送信します。This example adds two shapes to myDocument, groups the two new shapes, sets the fill for the group, rotates the group, and sends the group to the back of the drawing layer.

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

関連項目See also

ShapeRange オブジェクトShapeRange Object

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.