Shape.ParentGroup プロパティ (PowerPoint)

子の図形または子の図形範囲の共通の親の図形を表す Shape オブジェクトを返します。

構文

式。ParentGroup

式Shape オブジェクトを表す変数。

戻り値

Shape

例

次の使用例は、作業中のプレゼンテーションの最初のスライドに 2 つの図形を作成し、それらの図形をグループ化します。次に、グループ内の 1 つの図形を使用して親グループにアクセスし、親グループ内のすべての図形を同じ塗りつぶしの色で塗りつぶします。 次の使用例は、作業中のプレゼンテーションの最初のスライドに現在図形が含まれていないことを前提としています。 その場合は、エラーが表示されます。

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

関連項目

Shape オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。