Compartilhar via


Selection.ChildShapeRange Property

Word Developer Reference

Returns a ShapeRange collection representing the child shapes contained within a selection.

Syntax

expression.ChildShapeRange

expression   An expression that returns a Selection object.

Example

This example creates a new document with a drawing canvas, populates the drawing canvas with shapes, and then, after checking that the shapes selected are child shapes, fills the child shapes with a pattern.

Visual Basic for Applications
  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.<strong class="bterm">ChildShapeRange</strong>.Fill.Patterned msoPatternDivot
Else
    MsgBox "This is not a range of child shapes."
End If

End Sub

See Also