Slide.Shapes プロパティ (PowerPoint)

  • [アーティクル]

配置されているか、指定したスライド、スライド マスター、またはスライドの範囲に挿入されるすべての要素を表す Shapes コレクションを返します。 読み取り専用です。

構文

式。図形

式Slide オブジェクトを表す変数。

戻り値

図形

注釈

返される 図形 のコレクションは、図面、図形、OLE オブジェクト、図、テキスト オブジェクト、タイトル、ヘッダー、フッター、スライド番号、および日付と時刻のオブジェクト、スライドまたはノートのスライド イメージを含めることができます。

例

次の使用例は、横 100 ポイント、縦 50 ポイントの四角形の左上端が、作業中のプレゼンテーションのスライド 1 の左端から 5 ポイント、スライドの上から 25 ポイントの位置になるように追加します。

Set firstSlide = ActivePresentation.Slides(1)

firstSlide.Shapes.AddShape msoShapeRectangle, 5, 25, 100, 50

次の使用例は、作業中のプレゼンテーションのスライド 1 の図形 3 の塗りつぶしにテクスチャを設定します。

Set newRect = ActivePresentation.Slides(1).Shapes(3)

newRect.Fill.PresetTextured msoTextureOak

作業中のプレゼンテーションのスライド 1 にタイトルが含まれている場合、次の使用例の 2 行目と 3 行目のコードはプレゼンテーションのスライド 1 にタイトル テキストを設定します。

Set firstSl = ActivePresentation.Slides(1)

firstSl.Shapes.Title.TextFrame.TextRange.Text = "Some title text"

firstSl.Shapes(1).TextFrame.TextRange.Text = "Other title text"

次の使用例は、作業中のプレゼンテーションのスライド 2 の図形 2 にレイアウト枠が含まれている場合、一連の段落をスライドに追加します。 Chr(13)は、テキスト内に段落記号を挿入するために使用されることに注意してください。

Set tShape = ActivePresentation.Slides(2).Shapes(2)

tShape.TextFrame.TextRange.Text = "First Item" & Chr(13) & _
    "Second Item" & Chr(13) & "Third Item"

ほとんどのスライド レイアウトでは、スライドの最初の図形はテキスト プレースホルダーです。次の使用例は、前の使用例と同じ処理を実行します。

Set testShape = ActivePresentation.Slides(2).Shapes.Placeholders(2)

testShape.TextFrame.TextRange.Text = "First Item" & _
    Chr(13) & "Second Item" & Chr(13) & "Third Item"

関連項目

スライド オブジェクト

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

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