PowerPoint) (圖形物件

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

註解

注意事項

有三個物件代表圖形： [圖形 ] 集合，代表文件上的所有圖形; ShapeRange 集合，代表文件上指定的圖形子集 (例如， ShapeRange 物件可以代表文件上的圖形 1 和 4，也可以代表文件) 上所有選取的圖形;以及 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 中新增矩形，命名為 [紅色方格]，然後設定其前景色和線條樣式。

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 物件，請使用圖形集合的下列其中一個方法：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 支援與意見反應。

  • Last updated on