如果该属性值为 True,则所选内容包含子图形。Boolean 类型,只读。
expression.HasChildShapeRange
expression 必需。该表达式返回一个 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