代表圖形範圍，這是報表中一或多個圖形的集合。
註解
Project 使用與其他 Office 應用程式使用的相同 Office Art 基礎結構，並使 Office Art 適應可使用作用中專案中欄位的報表、表格和圖表。 不過，Project 不會實作所有 ShapeRange 作業。 例如，Project 不支援圖形範圍內圖形的自動對齊、分佈、群組或合併。
圖形範圍可以包含單一圖形或報告中的所有圖形。 您可以包含您想要建構圖形範圍的任何圖形。 例如，您可以建構包含報表中前三個圖形、報表中所有圖形，或只包含三角形圖案的 ShapeRange 集合。
[!注意事項] 您可以運用的 Shape 物件的大部分作業，也運用包含一個圖案的 ShapeRange 物件。 在包含多個圖形、不同類型的圖形或 Project 中未完全支援的圖形的 ShapeRange 物件上執行某些作業時，可能會導致錯誤。 例如，如果圖形範圍包含矩形和圖表，而您嘗試設定 [填滿] 屬性，陳述式會失敗，因為圖表並未實作 [填滿] 屬性。 在其他情況下，例如，如果您在包含圖表和矩形的圖形範圍內使用 [旋轉 ] 屬性，Project 會旋轉該矩形，但以無訊息模式忽略該圖表。
範例
您可以傳回一組由索引號碼或圖形名稱指定的圖形。 使用 Shapes.Range(index)，其中 index 是索引號碼或名稱的陣列。 例如，下列兩個陳述式都有效：
Set myRange1 = theReport.Shapes.Range(Array(1, 2))
Set myRange2 = theReport.Shapes.Range(Array("Textbox 1", "Textbox 2"))
若要建立包含報表中所有圖形的 ShapeRange 物件，請使用如下所示的語句：
Set allShapes = theReport.Shapes.Range(Array(1, theReport.Shapes.Count))
若要使用單一 Shapes 集合成員建立 ShapeRange 物件，您可以使用如下陳述式：
Set myRange3 = theReport.Shapes.Range(2)
Set myRange4 = theReport.Shapes.Range("Rectangle 2")
若要在 ShapeRange 集合中的單一圖形上執行作業，您可以使用如下陳述式：
myRange1(2).Fill.ForeColor.RGB = RGB(120, 120, 80)
myRange1("Textbox 2").Fill.ForeColor.RGB = RGB(120, 120, 80)
或者，您可以直接在 Shape 物件上執行作業，而不使用圖形範圍。
theReport.Shapes("Big rectangle").Fill.ForeColor.RGB = RGB(120, 120, 80)
方法
| 描述 |
|---|
| Project 中未實作 Align 方法。 |
| 將格式設定套用至圖形範圍，其中格式設定資訊是使用 PickUp 方法複製的。 |
| 將圖形範圍複製到剪貼簿。 |
| 將圖形範圍剪至剪貼簿。 |
| 刪除圖形範圍。 |
| Project 中未實作 Distribute 方法。 |
| 複製圖形範圍，並傳回複本參照。 |
| 圍繞其水平或垂直軸翻轉圖形範圍內的每個圖形。 |
| Project 中未實作 Group 方法。 |
| 將圖形範圍內的每個圖形水平移動指定的點數。 |
| 圍繞 Z 軸將圖形範圍內的每個圖形旋轉指定的度數。 |
| 在圖形範圍內垂直移動每個圖形指定的點數。 |
| 取得圖形範圍集合中的個別 Shape 物件。 |
| Project 中未實作 MergeShapes 方法。 |
| 複製圖形範圍的格式設定。 |
| Project 中未實作 Regroup 方法。 |
| Project 中未實作 RerouteConnections 方法。 |
| 將圖形範圍的高度依指定係數縮放。 |
| 將圖形範圍的寬度縮放指定係數。 |
| 選取圖形範圍內的每個圖形。 |
| 將預設圖案的格式設定套用至範圍中的每個圖案。 |
| Project 中未實作 取消群組 方法。 |
| 將圖形範圍移到其他圖形前面或後面， (也就是變更 Z 順序) 中的位置。 |
屬性
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。