共用方式為

PowerPoint (的 Slide.Shapes 屬性)

  • 發行項

會傳回代表發出或插入指定的投影片、 投影片母片或投影片範圍上的所有元素的 Shapes 集合。 唯讀。

語法

運算式。形狀

表達 代表 Slide 物件的變數。

傳回值

圖案

註解

傳回 Shapes 集合可以包含繪圖、 圖案、 OLE 物件、 圖片、 文字物件、 標題、 頁首、 頁尾、 投影片編號及日期和時間物件上的投影片或備忘稿上的投影片影像。

範例

在這個範例中，會新增一個寬度為 100 點、高度為 50 點的矩形，它的左上角距離使用中簡報第一張投影片的左邊緣 5 點，距離投影片上邊緣 25 點。

Set firstSlide = ActivePresentation.Slides(1)

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

在這個範例中，會設定使用中簡報第一張投影片上第三個圖案的填滿材質。

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

newRect.Fill.PresetTextured msoTextureOak

假設使用中簡報的第一張投影片包含一個標題。在下列範例中，第二及第三行程式碼會設定簡報中第一張投影片的標題文字。

Set firstSl = ActivePresentation.Slides(1)

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

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

假設使用中簡報第二張投影片上的第二個圖案包含文字圖文框，下列範例會在投影片中新增一系列段落。 請注意， 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"

另請參閱

Slide 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。