次の方法で共有


Selection.ShapeRange プロパティ (Publisher)

指定した範囲または選択範囲のすべての 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 のサポートおよびフィードバックを参照してください。