title | keywords | f1_keywords | api_name | ms.assetid | ms.date | ms.localizationpriority | ||
---|---|---|---|---|---|---|---|---|
Shape.Child property (PowerPoint) |
vbapp10.chm547066 |
|
|
53371144-eabb-3f1f-f9cf-9a4e7b701d5f |
06/08/2017 |
medium |
MsoTrue if the shape is a child shape or if all shapes in a shape range are child shapes of the same parent. Read-only.
expression.Child
expression A variable that represents a Shape object.
MsoTriState
The value of the Child property can be one of these MsoTriState constants.
Constant | Description |
---|---|
msoFalse | The shape is not a child shape or, if a shape range, all child shapes don't belong to the same parent. |
msoTrue | The shape is a child shape or, if a shape range, all child shapes belong to the same parent. |
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
[!includeSupport and feedback]