次の方法で共有


ShapeRange オブジェクト (PowerPoint)

スライド上の図形の集合である図形範囲を表します。 図形範囲には、1 つの図形から、スライドのすべての図形を含めることができます。

注釈

文書上のすべての図形または選択範囲のすべての図形の中から選択した任意の図形を含め、図形範囲を作成できます。 たとえば、スライドの最初の 3 つの図形、スライドから選択したすべての図形、またはスライドのすべてのフリーフォームを含む ShapeRange コレクションを作成できます。

1 つの図形または一度に複数の図形を使用する方法の概要については、「 図形の操作 (描画オブジェクト)」を参照してください。

次の使用例は、次の方法を示しています。

  • 名前またはインデックス番号で指定した図形のセットを返します。

  • スライドで選択したすべての、またはいくつかの図形を取得する

Shapes.Range (index) を使用して、index は図形の名前またはインデックス番号、または図形の名前またはインデックス番号を含む配列を使用して、ドキュメント上の図形のセットを表す ShapeRange コレクションを取得します。 Array 関数を使用して、名前またはインデックス番号の配列を作成します。 次の使用例は、 myDocument の図形 1 と 3 の塗りつぶしパターンを設定します。

Set myDocument = ActivePresentation.Slides(1)

myDocument.Shapes.Range(Array(1, 3)).Fill _

    .Patterned msoPatternHorizontalBrick

次の使用例は、myDocument の Oval 4 と Rectangle 5 という名前の図形に塗りつぶしのパターンを設定します。

Set myDocument = ActivePresentation.Slides(1)

Set myRange = myDocument.Shapes _

    .Range(Array("Oval 4", "Rectangle 5"))

myRange.Fill.Patterned msoPatternHorizontalBrick

Range メソッドを使用して任意の数の図形またはスライドを返すことができますが、コレクションの 1 つのメンバーのみを返す場合は Item メソッドを使用する方が簡単です。 たとえば、 Shapes(1) より Shapes.Range(1) と記述すると効率的です。

Selection オブジェクトの ShapeRange プロパティを使用して、 選択範囲 のすべての図形を取得します。 次の使用例は、選択範囲内に少なくとも 1 つの図形があると仮定して、ウィンドウ 1 のすべての図形の前景色に塗りつぶしを設定します。

Windows(1).Selection.ShapeRange.Fill.ForeColor _

    .RGB = RGB(255, 0, 255)

Selection.ShapeRange (index) を使用します。index は図形名またはインデックス番号で、選択範囲内の 1 つの図形を返します。 次の使用例は、選択範囲に少なくとも 2 つの図形があると仮定して、ウィンドウ 1 で選択した図形のコレクション内の図形 2 の塗りつぶしの前景色を設定します。

Windows(1).Selection.ShapeRange(2).Fill.ForeColor _

    .RGB = RGB(255, 0, 255)

メソッド

プロパティ

関連項目

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

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