會傳回代表發出或插入指定的投影片、 投影片母片或投影片範圍上的所有元素的 Shapes 集合。 唯讀。
語法
表情。形狀
詞 一個代表 主物件 的變數。
傳回值
圖案
註解
傳回 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"
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。