ShapeRange.ParentGroup-Eigenschaft (PowerPoint)

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 verwendet werden. ParentGroup

Ausdruck Eine Variable, die ein ShapeRange-Objekt darstellt.

Rückgabewert

Form

Beispiel

In diesem Beispiel werden zwei Shapes auf der ersten Folie in der aktiven Präsentation erstellt und diese Shapes gruppiert. Wenn Sie dann ein Shape in der Gruppe verwenden, wird auf die übergeordnete Gruppe zugegriffen und alle Shapes in der übergeordneten Gruppe mit derselben Füllfarbe gefüllt. In diesem Beispiel wird davon ausgegangen, dass die erste Folie der aktiven Präsentation derzeit keine Formen enthält. Wenn dies der Fall ist, erhalten Sie eine Fehlermeldung.

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.