ShapeRange 物件 (Excel)

代表圖案範圍，即文件上的一組圖案。

備註

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

範例

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

使用 Range (索引) ，其中 index 是含有圖形名稱或索引號碼之圖形或陣列的名稱或索引號碼，以傳回代表文件上一組圖形的 ShapeRange 集合。 使用 Array 函數建構名稱或索引號碼的陣列。

下列範例會設定 myDocument 上第一個及第三個圖案的填滿圖樣。

Set myDocument = Worksheets(1) 
myDocument.Shapes.Range(Array(1, 3)).Fill.Patterned _ 
 msoPatternHorizontalBrick

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

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

Set myDocument = Worksheets(1) 
Set myRange = myDocument.Shapes.Range(Array("Oval 4", _ 
 "Rectangle 5")) 
myRange.Fill.Patterned msoPatternHorizontalBrick

傳回文件上所有或部分選取的圖形

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

Windows(1).Selection.ShapeRange.Fill.ForeColor.RGB = _ 
 RGB(255, 0, 255)

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

Windows(1).Selection.ShapeRange(2).Fill.ForeColor.RGB = _ 
 RGB(255, 0, 255)

方法

屬性

另請參閱

支援和意見反應

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

  • Last updated on