ParentGroup 属性

       

返回 Shape 对象,该对象代表子形状或子形状范围共同的父形状。

expression.ParentGroup

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

示例

本示例在当前演示文稿的第一张幻灯片中创建两个形状并且组合这两个形状;然后使用该组中的一个形状访问父组并用同一种填充颜色填充该父组中的所有形状。本示例假设当前演示文稿的第一张幻灯片中当前不包含任何形状。如果它包含形状,则会产生错误。

Sub ParentGroup()
    Dim sldNewSlide As Slide
    Dim shpParentGroup As Shape

    'Add two shapes to active document and group
    Set sldNewSlide = ActivePresentation.Slides _
        .Add(Index:=1, Layout:=ppLayoutBlank)

    With sldNewSlide.Shapes
        .AddShape Type:=msoShapeBalloon, Left:=72, _
            Top:=72, Width:=100, Height:=100
        .AddShape Type:=msoShapeOval, Left:=110, _
            Top:=120, Width:=100, Height:=100
        .Range(Array(1, 2)).Group
    End With

    Set shpParentGroup = ActivePresentation.Slides(1).Shapes(1) _
        .GroupItems(1).ParentGroup
    shpParentGroup.Fill.ForeColor.RGB = RGB _
        (Red:=151, Green:=51, Blue:=250)

End Sub