Word) (Shapes.Range 方法
會傳回代表某個範圍內圖案的 ShapeRange 物件。
語法
運算式。範圍 (索引)
需要 expression。 代表 Shapes 物件的 變數。
參數
| 名稱 | 必要/選用 | 資料類型 | 描述 |
|---|---|---|---|
| Index | 必要 | Variant | 指定要包含在指定範圍中的圖形。 可以是整數，會指定圖形的 Shapes 集合、 指定圖案的名稱的字串或包含整數或字串陣列內的索引編號。 |
傳回值
ShapeRange
註解
Shape 物件一律會出現在其錨定的範圍相同的頁面。
注意事項
您可以運用的 Shape 物件的大部分作業也運用包含單一圖案的 ShapeRange 物件。 當在含有多個圖形的 ShapeRange 物件上執行某些作業會產生錯誤。
範例
本範例會將現用文件中第一個圖案的填滿前景色彩設為紫色。
Sub ShRange()
With ActiveDocument.Shapes.Range(1).Fill
.ForeColor.RGB = RGB(255, 0, 255)
.Visible = msoTrue
End With
End Sub
本範例會在現用文件內的可變圖案上套用陰影。
Sub ShpRange2(strShpName As String)
ActiveDocument.Shapes.Range(strShpName).Shadow.Type = msoShadow6
End Sub
若要呼叫前置副程式，請在標準程式碼模組中輸入下列程式碼。
Sub CallShpRange2()
Dim shpArrow As Shape
Dim strName As String
Set shpArrow = ActiveDocument.Shapes.AddShape(Type:=msoShapeLeftArrow, _
Left:=200, Top:=400, Width:=50, Height:=75)
shpArrow.Name = "myShape"
strName = shpArrow.Name
ShpRange2 strShpName:=strName
End Sub
本範例會選取現用文件的第一個圖案及第三個圖案。
Sub SelectShapeRange()
ActiveDocument.Shapes.Range(Array(1, 3)).Select
End Sub
這則範例會選取並刪除使用中文件內第一個圖案中的圖案。 這則範例會假設第一個圖案是畫布圖案。
Sub CanvasShapeRange()
Dim rngCanvasShapes As Range
Set rngCanvasShapes = ActiveDocument.Shapes(1).CanvasItems.Range(1)
rngCanvasShapes.Select
rngCanvasShapes.Delete
End Sub
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。