Word VBA教程:Child属性

如果为 True,则图形是子图形或位于图形区域的所有图形都是同一父图形的子图形。MsoTriState,只读。

MsoTriState 可以是下列 MsoTriState 常量之一:
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue

expression.Child

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

VBA示例

本示例选择画布中的第一个图形,并且如果所选图形是一个子图形,用指定颜色填充图形。本示例假定活动文档中的第一个图形是包含多个图形的画布。


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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号