Word) (Shape.Child 属性

如此 如果该形状是子形状，或者形状范围内的所有形状都的同一个父形状的子形状。 只读的 MsoTriState 。

语法

表达式。孩子

expression 是必需的。 一个代表 Shape 对象的变量。

示例

以下示例选择了画布中的第一个形状，如果选定的形状是子形状，则用指定的颜色填充该形状。 本示例假定活动文档中的第一个图形是包含多个图形的绘图画布。

Sub FillChildShape() 
 
 Dim shpCanvasItem As Shape 
 
 'Select the first shape in the drawing canvas 
 Set shpCanvasItem = ActiveDocument.Shapes(1).CanvasItems(1) 
 
 'Fill selected shape if it is a child shape 
 With shpCanvasItem 
 If .Child = msoTrue Then 
 .Fill.ForeColor.RGB = RGB(100, 0, 200) 
 Else 
 MsgBox "This shape is not a child shape." 
 End If 
 End With 
 
End Sub

另请参阅

形状对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。