PowerPoint) (ShapeRange 物件

代表圖案範圍，也就是文件上的一組圖案。 圖案範圍最少只會含有文件中的一個圖案，最多可以含有文件中的所有圖案。

註解

您可以包含您想要的任何圖形 - 從文件上的所有圖形中選擇的圖形，或是選取範圍中的所有圖形 — 以建構圖形範圍。 例如，您可以建構包含文件的前三個圖案、 所有選取的圖形或文件上的所有手繪多邊形的 ShapeRange 集合。

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

下列範例說明如何：

  • 傳回一組您依名稱或索引號碼指定的圖形。

  • 傳回文件中全部或部分選取的圖案。

範例

使用 Shapes.Range (索引) ，其中 index 是圖形或包含圖形名稱或索引號碼的陣列的名稱或索引號碼，以傳回代表文件上一組圖形的 ShapeRange 集合。 使用 Array 函數建構名稱或索引號碼的陣列。 下列範例會設定 myDocument 上第一個及第三個圖案的填滿圖樣。

Set myDocument = ActivePresentation.Slides(1)

myDocument.Shapes.Range(Array(1, 3)).Fill _

    .Patterned msoPatternHorizontalBrick

下列範例會設定 myDocument 上 Oval 4 及 Rectangle 5 圖案的填滿圖樣。

Set myDocument = ActivePresentation.Slides(1)

Set myRange = myDocument.Shapes _

    .Range(Array("Oval 4", "Rectangle 5"))

myRange.Fill.Patterned msoPatternHorizontalBrick

雖然您可以使用 Range 方法傳回任意數目的圖形或投影片，但如果您只想傳回集合的單一成員，使用 Item 方法會更簡單。 例如， Shapes(1)是比 Shapes.Range(1)簡單。

使用 Selection 物件的 ShapeRange 屬性可傳回選取範圍中的所有圖形。 本範例會將填滿前景色彩的第一個視窗中，假設選取範圍中的所有圖形的選取範圍中的至少一個圖形。

Windows(1).Selection.ShapeRange.Fill.ForeColor _

    .RGB = RGB(255, 0, 255)

使用 Selection.ShapeRange (索引) ，其中 index 是圖形名稱或索引號碼，以傳回選取範圍內的單一圖形。 下列範例會將填滿前景色彩的第二個圖案的選取的圖案集合中第一個視窗，假設中至少有兩個圖形選取範圍中。

Windows(1).Selection.ShapeRange(2).Fill.ForeColor _

    .RGB = RGB(255, 0, 255)

方法

屬性

另請參閱

支援和意見反應

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

  • 上次更新時間：