Word VBA教程:ParentGroup属性

返回一个Shape对象,该对象代表子图形或子图形范围的普通父图形。

expression.ParentGroup

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

VBA示例

本示例在活动文档中创建两个图形并对其进行分组。然后利用一个图形访问该组的父级别组,并使用同样的填充颜色填充父级别组中的所有图形。本示例假定活动文档当前并不包括图形,如果包括图形,则产生错误。


Sub ParentGroupShape()
    Dim pgShape As Shape
    'Add two shapes to active document and group
    With ActiveDocument.Shapes
        .AddShape Type:=msoShapeOval, Left:=72, _
            Top:=72, Width:=100, Height:=100
        .AddShape Type:=msoShapeHeart, Left:=110, _
            Top:=120, Width:=100, Height:=100
        .Range(Array(1, 2)).Group
    End With
    Set pgShape = ActiveDocument.Shapes(1) _
        .GroupItems(1).ParentGroup
    pgShape.Fill.ForeColor.RGB = RGB(Red:=100, Green:=0, Blue:=255)
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号