Selection.ShapeRange プロパティ (発行元)

指定した範囲または選択範囲内のすべての Shape オブジェクトを表す ShapeRange コレクションを返します。 図形範囲には、描画、図形、図、OLE オブジェクト、ActiveX コントロール、テキスト オブジェクト、および吹き出しを含めることができます。

構文

式。ShapeRange

式Selection オブジェクトを表す変数。

戻り値

ShapeRange

例

次の使用例は、選択範囲のすべての図形に塗りつぶしのパターンを設定します。 この例では、アクティブな文書で 1 つ以上の図形が選択されていることを想定しています。

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

次の使用例は、選択範囲のすべての図形に影付きと塗りつぶしの書式を設定します。 この例では、アクティブな文書で 1 つ以上の図形が選択されていることを想定しています。

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

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。

  • Last updated on