共用方式為

PowerPoint) (Shape 物件

  • 發行項

代表繪圖圖層中的物件，例如快取圖案、手繪多邊形、OLE 物件或圖片。

註解

注意事項

有三個物件代表圖案：代表檔上所有圖案的 Shapes 集合; ShapeRange 集合，代表檔上指定的圖案子集 (例如， ShapeRange 物件可以代表檔上的第一個和第四個圖案，或是可以代表檔) 上所有選取的圖案;和 Shape 物件，代表檔上的單一圖案。 如果您想要同時使用多個圖案，或是使用選取範圍內的圖案，請使用 ShapeRange 集合。

如需如何使用單一圖形或一次使用多個圖案的概觀，請 參閱使用圖形 (繪圖物件) 。

下列範例說明如何：

  • 傳回投影片上現有的圖案，依名稱或編號索引。

  • 傳回投影片上新建立的圖案。

  • 傳回選取範圍內的圖案。

  • 傳回投影片上的投影片標及其他版面配置區。

  • 傳回連接在連接線端點上的圖案。

  • 傳回簡報的預設圖案。

  • 傳回新建立的手繪多邊形。

  • 傳回群組中的單一圖案。

  • 傳回新組成的圖案群組。

範例

使用 [圖形 (索引) ，其中 index 是圖案名稱或索引編號，可傳回代表投影片上圖案的 Shape 物件。 下列範例會水平翻轉 myDocument 上的第一個圖案以及名稱為 Rectangle 1 的圖案。

Set myDocument = ActivePresentation.Slides(1)

myDocument.Shapes(1).Flip msoFlipHorizontal

myDocument.Shapes("Rectangle 1").Flip msoFlipHorizontal

在 Shapes 集合中新增每一個圖案時，都會為它指定預設名稱。 若要指定更有意義的名稱，請使用 Name 屬性。 下列範例會將矩形新增至 myDocument、將名稱命名為 Red Square，然後設定其前景色彩和線條樣式。

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes.AddShape(Type:=msoShapeRectangle, _

        Top:=144, Left:=144, Width:=72, Height:=72)

    .Name = "Red Square"

    .Fill.ForeColor.RGB = RGB(255, 0, 0)

    .Line.DashStyle = msoLineDashDot

End With

若要將圖案新增至投影片，並傳回代表新建立圖案的Shape物件，請使用Shapes集合的下列其中一種方法：Add3DModel、AddCallout、AddConnector、AddCurve、AddLabel、AddLine、AddMediaObject、AddOLEObject、AddPicture、AddPlaceholder、AddPolyline、AddShape、AddTable、AddTextbox、AddTextEffect、AddTitle。

使用 Selection.ShapeRange (索 引) ，其中 index 是圖案名稱或索引編號，可傳回代表選取範圍內圖案的 Shape 物件。 下面範例假設在使用中視窗中，選取範圍中的第一張圖形是在選取範圍中的至少一個圖案設定填滿格式。

ActiveWindow.Selection.ShapeRange(1).Fill _

    .ForeColor.RGB = RGB(255, 0, 0)

使用 Shapes.Title 傳回 Shape 物件代表現有的投影片標題。 使用 Shapes.AddTitle 新增至已不會有一個並傳回代表新建立的標題的 Shape 物件的投影片的標題。 使用 Shapes.Placeholders (索引) ，其中 index 是佔位符的索引編號，可傳回代表佔位符的 Shape 物件。 如果您沒有變更投影片上圖案的分層順序下列三個陳述式是相等，假設該投影片一標題。

ActivePresentation.Slides(1).Shapes.Title _

    .TextFrame.TextRange.Font.Italic = True

ActivePresentation.Slides(1).Shapes.Placeholders(1) _

    .TextFrame.TextRange.Font.Italic = True

ActivePresentation.Slides(1).Shapes(1).TextFrame _

    .TextRange.Font.Italic = True

若要傳回代表連接器所連接之其中一個圖案的 Shape 物件，請使用 BeginConnectedShape 或 EndConnectedShape 屬性。

若要傳回代表簡報之預設圖案的 Shape 物件，請使用 DefaultShape 屬性。

使用 BuildFreeform 和 AddNodes 方法來定義新手繪多邊形的幾何，並使用 ConvertToShape 方法來建立手繪多邊形，並傳回代表它的 Shape 物件。

使用 GroupItems (索引) ，其中 index 是圖案名稱或群組內的索引編號，可傳回代表群組圖形中單一圖案的 Shape 物件。

使用 群組 或 Regroup 方法來群組的圖案範圍並傳回代表新組成的群組的單一 Shape 物件。 已建立的群組之後，您可以使用群組使用任何其他圖形的方式相同。

方法

屬性

另請參閱

支援和意見反應

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