Child Property
Returns msoTrue if the specified shape is a child shape or if all shapes in a shape range are child shapes of the same parent. Read-only MsoTriState.
MsoTriState can be one of these MsoTriState constants. |
msoCTrue Does not apply to this property. |
msoFalse If the selected shape is not a child shape. |
msoTriStateMixed If only some of the selected shapes are child shapes. |
msoTriStateToggle Does not apply to this property. |
msoTrue If the selected shape is a child shape. |
expression.Child
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example selects the first shape in the canvas, and if the selected shape is a child shape, fills the shape with the specified color. This example assumes that a drawing canvas contains multiple shapes on the active worksheet.
Sub FillChildShape()
'Select the first shape in the drawing canvas
ActiveSheet.Shapes(1).CanvasItems(1).Select
'Fill selected shape if it is a child shape
If Selection.ShapeRange.Child = msoTrue Then
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(100, 0, 200)
Else
MsgBox "This shape is not a child shape."
End If
End Sub