| MsoTriState can be one of these MsoTriState constants. |
| msoCTrue Does not apply to this property. |
| msoFalse The shape is not a child shape or, if a shape range, all child shapes do not belong to the same parent. |
| msoTriStateMixed Does not apply to this property. |
| msoTriStateToggle Does not apply to this property. |
| msoTrue The shape is a child shape or, if a shape range, all child shapes belong to the same parent. |
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 the first shape in the active presentation is a drawing canvas that contains multiple shapes.
Sub FillChildShape()
'Select the first shape in the drawing canvas
ActivePresentation.Slides(1).Shapes(1).CanvasItems(1).Select
'Fill selected shape if it is a child shape
With ActiveWindow.Selection
If .ShapeRange.Child = msoTrue Then
.ShapeRange.Fill.ForeColor.RGB = RGB(Red:=100, Green:=0, Blue:=200)
Else
MsgBox "This shape is not a child shape."
End If
End With
End Sub