通过

Shape.ParentGroup 属性 (PowerPoint)

  • 项目

返回一个 Shape 对象，该对象代表子形状或子形状范围的通用父形状。

语法

表达式。ParentGroup

表达 一个代表 Shape 对象的变量。

返回值

型号

示例

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

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

另请参阅

形状对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。