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 のサポートおよびフィードバックを参照してください。