共用方式為

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 支援與意見反應。