ShapeRange.ParentGroup-Eigenschaft (PowerPoint)

Artikel
04/07/2023

Gibt ein Shape -Objekt zurück, das die gemeinsame Form des übergeordneten Objekts einer untergeordneten Form oder eines Bereichs aus untergeordneten Formen darstellt.

Syntax

Ausdruck. ParentGroup

Ausdruck Eine Variable, die ein ShapeRange-Objekt darstellt.

Rückgabewert

Form

Beispiel

In diesem Beispiel werden zwei Formen auf der ersten Folie in der aktiven Präsentation erstellt und gruppiert. greift dann mithilfe einer Form in der Gruppe auf die übergeordnete Gruppe zu und füllt alle Formen in der übergeordneten Gruppe mit der gleichen Füllfarbe aus. In diesem Beispiel wird davon ausgegangen, dass die erste Folie der aktiven Präsentation derzeit keine Shapes enthält. Wenn dies der Fall ist, erhalten Sie einen Fehler.

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

Siehe auch

ShapeRange-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über