ShapeRange オブジェクト (Project)

レポート内の 1 つまたは複数の図形のコレクションである図形範囲を表します。

注釈

Project では、他の Office アプリケーションと同じ Office Art インフラストラクチャを使用し、作業中のプロジェクトのフィールドを使用できるレポート、表、グラフに Office Art を適応させます。 ただし、Project にはすべての ShapeRange 操作が実装されているわけではありません。 たとえば、Project では、図形範囲内の図形の自動配置、分散、グループ化、または結合はサポートされていません。

図形範囲には、レポート内の 1 つの図形またはすべての図形を含めることができます。 形状範囲を作成したい任意の図形を含めることができます。 たとえば、レポートの最初の 3 つの図形、レポートのすべての図形、または三角形の図形のみを含む ShapeRange コレクションを作成できます。

[!メモ] 図形 オブジェクトを使用して行うことがでくほとんどの操作を行うことも 1 つだけ図形を含む ShapeRange オブジェクトで。 操作によっては、複数の図形、異なる種類の図形、または Project で完全にサポートされていない図形を含む ShapeRange オブジェクトに対して実行すると、エラーが発生することがあります。 たとえば、図形範囲に四角形とグラフが含まれているときに Fill プロパティを設定しようとすると、グラフに Fill プロパティが実装されていないため、ステートメントは失敗します。 グラフと四角形を含む図形範囲で "回転" プロパティを使用した場合、四角形は回転しますが、グラフは無視されます。

例

インデックス番号または図形名で指定された図形のセットを返すことができます。 use Shapes.Range(index).ここで、 index はインデックス番号または名前の配列です。 たとえば、以下の文は両方とも有効です。

Set myRange1 = theReport.Shapes.Range(Array(1, 2))
Set myRange2 = theReport.Shapes.Range(Array("Textbox 1", "Textbox 2"))

レポート内のすべての図形を含む ShapeRange オブジェクトを作成するには、次のようなステートメントを使用します。

Set allShapes = theReport.Shapes.Range(Array(1, theReport.Shapes.Count))

Shapes コレクションの 1 つのメンバーで ShapeRange オブジェクトを作成するには、次のようなステートメントを使用できます。

Set myRange3 = theReport.Shapes.Range(2)
Set myRange4 = theReport.Shapes.Range("Rectangle 2")

ShapeRange コレクション内の単一の図形に対して操作を実行するには、次のようなステートメントを使用できます。

myRange1(2).Fill.ForeColor.RGB = RGB(120, 120, 80)
myRange1("Textbox 2").Fill.ForeColor.RGB = RGB(120, 120, 80)

または、図形範囲を使用せずに Shape オブジェクトに対して直接操作を実行することもできます。

theReport.Shapes("Big rectangle").Fill.ForeColor.RGB = RGB(120, 120, 80)

メソッド

プロパティ

関連項目

Shapes オブジェクト

Shape オブジェクト

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

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