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 支持和反馈,获取有关如何接收支持和提供反馈的指南。