指定したスライド上のすべての 図形 オブジェクトのコレクション。
注釈
各 Shape オブジェクトは、オートシェイプ、フリーフォーム、OLE オブジェクト、画像など、描画レイヤーのオブジェクトを表します。
注:
文書のオートシェイプだけを処理したり、選択した図形だけを処理する場合など、文書の図形のサブセットを処理する場合は、処理する図形を含む ShapeRange コレクションを作成する必要があります。 単一の図形または同時に複数の図形を処理する方法については、「使い方: 図形 (描画オブジェクト) を使用する」を参照してください。
例
Shapes コレクションを取得するには、Shapes プロパティを使用します。 次の使用例は、現在のプレゼンテーションのすべての図形を選択します。
ActivePresentation.Slides(1).Shapes.SelectAll
注:
文書上のすべての図形に対して同時に何らかの操作 (削除やプロパティの設定など) を行う場合は、引数を指定しない Rangeメソッドを使用して、Shapes コレクション内のすべての図形を含む ShapeRange オブジェクトを作成し、適切なプロパティまたはメソッドを ShapeRange オブジェクトに適用します。
AddCallout、AddComment、AddConnector、AddCurve、AddLabel、AddLine、AddMediaObject、AddOLEObject、AddPicture、AddPlaceholder、AddPolyline、AddShape、AddTable、AddTextbox、AddTextEffect、または AddTitleメソッドを使用して新しい図形を作成し、Shapes コレクションに追加します。 BuildFreeformメソッドと ConvertToShapeメソッドを組み合わせて新しいフリーフォームを作成し、コレクションに追加します。 次の使用例は、作業中のプレゼンテーションに長方形を追加します。
ActivePresentation.Slides(1).Shapes.AddShape Type:=msoShapeRectangle, _
Left:=50, Top:=50, Width:=100, Height:=200
1 つの Shape オブジェクトを返すには、Shapes (index) を使用します。ここで、index は図形の名前またはインデックス番号です。 次の使用例は、作業中のプレゼンテーションの図形 1 の既定の影に塗りつぶしを設定します。
ActivePresentation.Slides(1).Shapes(1).Fill _
.PresetGradient Style:=msoGradientHorizontal, Variant:=1, _
PresetGradientType:=msoGradientBrass
Shapes.Range (インデックス) を使用して、Shapes コレクションのサブセットを表す ShapeRange コレクションを返します。ここで、index は図形の名前またはインデックス番号、または図形名またはインデックス番号の配列です。 次の使用例は、作業中のプレゼンテーションの図形 1 と 3 に塗りつぶしのパターンを設定します。
ActivePresentation.Slides(1).Shapes.Range(Array(1, 3)).Fill _
.Patterned Pattern:=msoPatternHorizontalBrick
プレースホルダーを表す Shape オブジェクトを取得するには、Shapes.Placeholders (index) を使用します。ここで index はプレースホルダー番号です。 指定したスライドにタイトルが含まれている場合に、タイトル プレースホルダーを取得するには、Shapes.Placeholders(1) または Shapes.Title を使用します。 次の使用例は、作業中のプレゼンテーションにスライドを追加し、次に、タイトルとサブタイトル (サブタイトルは、このレイアウトを持つスライドの 2 番目のプレースホルダー) の両方にテキストを追加します。
With ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle).Shapes
.Title.TextFrame.TextRange = "This is the title text"
.Placeholders(2).TextFrame.TextRange = "This is subtitle text"
End With
メソッド
プロパティ
| 名前 |
|---|
| アプリケーション |
| Count |
| Creator |
| HasTitle |
| Parent |
| Placeholders |
| Title |
関連項目
PowerPoint Object Model Reference
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。