Selection.HasChildShapeRange プロパティ (Word)
の 場合は true 選択範囲に子図形が含まれている場合。 読み取り専用の Boolean です。
構文
式。 HasChildShapeRange
式Selection オブジェクトを返す式。
例
次の使用例は、描画キャンバスがある新規文書を作成し、描画キャンバス内に図形を追加します。次に、図形が子図形であることを調べた後、子図形をパターンで塗りつぶします。
Sub ChildShapes()
Dim docNew As Document
Dim shpCanvas As Shape
'Create a new document with a drawing canvas and shapes
Set docNew = Documents.Add
Set shpCanvas = docNew.Shapes.AddCanvas( _
Left:=100, Top:=100, Width:=200, Height:=200)
shpCanvas.CanvasItems.AddShape msoShapeRectangle, _
Left:=0, Top:=0, Width:=100, Height:=100
shpCanvas.CanvasItems.AddShape msoShapeOval, _
Left:=0, Top:=50, Width:=100, Height:=100
shpCanvas.CanvasItems.AddShape msoShapeDiamond, _
Left:=0, Top:=100, Width:=100, Height:=100
'Select all shapes in the canvas
shpCanvas.CanvasItems.SelectAll
'Fill canvas child shapes with a pattern
If Selection.HasChildShapeRange = True Then
Selection.ChildShapeRange.Fill.Patterned msoPatternDivot
Else
MsgBox "This is not a range of child shapes."
End If
End Sub
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。