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