ShapeRange.Child Property
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.
Namespace: Microsoft.Office.Interop.PowerPoint
Assembly: Microsoft.Office.Interop.PowerPoint (in Microsoft.Office.Interop.PowerPoint.dll)
Syntax
'Declaration
ReadOnly Property Child As MsoTriState
Get
'Usage
Dim instance As ShapeRange
Dim value As MsoTriState
value = instance.Child
MsoTriState Child { get; }
Property Value
Type: Microsoft.Office.Core.MsoTriState
MsoTriState
Remarks
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 do not 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. |
Examples
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