PowerPoint VBA教程:Child属性

如果该形状是子形状,或者如果形状范围内的所有形状都是同一个父形状的子形状,则属性值为 MsoTrue。只读。MsoTriState 类型。

MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue 不应用于此属性。
msoFalse 该形状不是子形状,或者形状范围内并非所有的子形状都属于同一个父形状。
msoTriStateMixed 不应用于此属性。
msoTriStateToggle 不应用于此属性。
msoTrue 该形状是子形状,或者形状范围内所有的子形状都属于同一个父形状。

expression.Child

expression  必选。该表达式返回“应用于”列表中的对象之一。

VBA示例

本示例选择了画布中的第一个形状,如果选定的形状是子形状,则用指定的颜色填充该形状。本示例假设当前演示文稿中的第一个形状是包含多个形状的绘图画布。


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

上页:PowerPoint VBA教程:CheckIfOfficeIsHTMLEditor属性 下页:PowerPoint VBA教程:Children属性

PowerPoint VBA教程:Child属性

PowerPoint VBA教程:Children属性 PowerPoint VBA教程:ChildShapeRange属性
PowerPoint VBA教程:Collate属性 PowerPoint VBA教程:Color属性
PowerPoint VBA教程:Color1 Property PowerPoint VBA教程:Color2属性
PowerPoint VBA教程:ColorEffect属性 PowerPoint VBA教程:ColorScheme属性
PowerPoint VBA教程:ColorSchemes属性 PowerPoint VBA教程:ColorType属性
PowerPoint VBA教程:Columns属性 PowerPoint VBA教程:COMAddIns属性
PowerPoint VBA教程:CommandBars属性 PowerPoint VBA教程:Comments属性
PowerPoint VBA教程:ConnectionSiteCount属性 PowerPoint VBA教程:Connector属性
PowerPoint VBA教程:ConnectorFormat属性 PowerPoint VBA教程:Container属性
PowerPoint VBA教程:Contrast属性 PowerPoint VBA教程:Count属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号