Shapes オブジェクト (PowerPoint)
指定したスライド上のすべての Shape オブジェクトのコレクション。
注釈
各 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
単一の Shape オブジェクトを取得するには、Shapes (index) を使用します。index は図形の名前またはインデックス番号です。 次の使用例は、作業中のプレゼンテーションの図形 1 の既定の影に塗りつぶしを設定します。
ActivePresentation.Slides(1).Shapes(1).Fill _
.PresetGradient Style:=msoGradientHorizontal, Variant:=1, _
PresetGradientType:=msoGradientBrass
Shapes コレクションのサブセットを表す ShapeRange コレクションを取得するには、Shapes.Range (index) を使用します。ここで、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 のサポートおよびフィードバックを参照してください。
フィードバック
以下は間もなく提供いたします。2024 年を通じて、コンテンツのフィードバック メカニズムとして GitHub の issue を段階的に廃止し、新しいフィードバック システムに置き換えます。 詳細については、「https://aka.ms/ContentUserFeedback」を参照してください。
フィードバックの送信と表示