Publisher) (Selection.ShapeRange 屬性

會傳回 ShapeRange 集合，代表指定範圍或選取範圍中的所有 Shape 物件。 圖案範圍含有繪圖、圖案、圖片、OLE 物件、ActiveX 控制項、文字物件和圖說文字。

語法

運算式。ShapeRange

表達 代表 Selection 物件的變數。

傳回值

ShapeRange

範例

下列範例設定選取範圍中所有圖案的填滿樣式。 本範例假設已在使用中出版物中選取一或多個圖案。

Sub ChangeFillForShapeRange() 
 Selection.ShapeRange.Fill.Patterned Pattern:=msoPattern20Percent 
End Sub

下列範例將網底和填滿格式套用至選取範圍中所有圖案。 本範例假設已在使用中出版物中選取一或多個圖案。

Sub SetShadowForSelectedShapes() 
 With Selection.ShapeRange 
 .Shadow.Type = msoShadow6 
 .Fill.Patterned Pattern:=msoPatternDottedDiamond 
 End With 
End Sub

支援和意見反應

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