PowerPoint) (Shapes 物件
所有 圖案 集合 在指定的投影片上的物件。
註解
每一個 Shape 物件都代表繪圖圖層中的物件，例如快取圖案、手繪多邊形、OLE 物件或圖片。
注意事項
[!注意事項] 如果您想要使用文件上的圖案的子集 例如，只在文件快取圖案或選取的圖形 必須建構 ShapeRange 包含您想要使用的 shapes 集合。 如需如何處理單一圖案或同時處理若干圖案的概觀，請參閱操作方法：使用圖案 (繪圖物件)。
範例
使用 Shapes 屬性可傳回 Shapes 集合。 下列範例會選取使用中簡報的所有圖案。
ActivePresentation.Slides(1).Shapes.SelectAll
注意事項
[!注意事項] 如果您想要執行的某個項目 （如刪除或設定屬性），同時文件上的所有圖案，使用範圍若要建立包含的 Shapes 集合中的所有圖案的 ShapeRange 物件，然後套用適當的屬性的任何引數的方法或 ShapeRange 物件的方法。
使用AddCallout、 AddComment、 AddConnector、 AddCurve、 AddLabel、 AddLine、 AddMediaObject、 AddOLEObject、 AddPicture、 AddPlaceholderAddPolylineAddShapeAddTableAddTextboxAddTextEffect或AddTitle建立新的圖案並將其新增到 Shapes 集合的方法。 使用 BuildFreeform方法搭配 ConvertToShape方法來建立新的手繪多邊形，並將其新增至集合。 下列範例會將矩形新增至作用中的簡報。
ActivePresentation.Slides(1).Shapes.AddShape Type:=msoShapeRectangle, _
Left:=50, Top:=50, Width:=100, Height:=200
使用 [圖形 (索引) ，其中 index 是圖形的名稱或索引編號，可傳回單一 Shape 物件。 下列範例會設定為某個預設陰影將使用中簡報的第一個圖案的填滿。
ActivePresentation.Slides(1).Shapes(1).Fill _
.PresetGradient Style:=msoGradientHorizontal, Variant:=1, _
PresetGradientType:=msoGradientBrass
使用Shapes.Range (索引) ，其中 index是圖案的名稱或索引編號或圖案名稱或索引編號的陣列，可傳回代表Shapes集合子集的ShapeRange集合。 下列範例會設定使用中簡報的圖案一和三個圖案的填滿圖樣。
ActivePresentation.Slides(1).Shapes.Range(Array(1, 3)).Fill _
.Patterned Pattern:=msoPatternHorizontalBrick
使用 Shapes.Placeholders (索引) ，其中 index 是預留位置編號，可傳回代表預留位置的 Shape 物件。 如果指定的投影片具有標題，使用 Shapes.Placeholders(1) 或 Shapes.Title 傳回標題版面配置區。 下列範例會將投影片新增至使用中簡報並再將文字新增至標題和子標題 （副標題是在具有此版面配置的投影片上第二個版面配置區）。
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
方法
屬性
| 名稱 |
|---|
| Application |
| 數目 |
| Creator |
| HasTitle |
| Parent |
| 版面配置區 |
| Title |
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。
意見反應
即將登場：在 2024 年，我們將逐步淘汰 GitHub 問題作為內容的意見反應機制，並將它取代為新的意見反應系統。 如需詳細資訊，請參閱：https://aka.ms/ContentUserFeedback。
提交並檢視相關的意見反應