ShapeRange.Child 属性 (Excel)

如果指定的形状是子形状,或者如果形状区域中的所有形状都是同一个父形状的子形状,则返回 msoTrue。 如果所选形状不是子形状,则返回 msoFalse 。 如果只有部分所选形状是子形状,则返回 msoTriStateMixed 。 只读 MsoTriState

语法

表达式孩子

表达 一个代表 ShapeRange 对象的变量。

示例

本示例选择画布中的第一个形状,并且如果选择的形状是子形状,则用指定的颜色填充该形状。 本示例假定活动工作表上的一个绘图画布中包含多个形状。

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

支持和反馈

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