ShapeRange.Child Property (Excel)
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.
Syntax
expression .Child
expression A variable that represents a ShapeRange object.
Remarks
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. |
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