Child Property

Microsoft Excel Visual Basic

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