Свойство Shape.ParentGroup (PowerPoint)

Статья
04/07/2023

Возвращает объект Shape , представляющий общую родительскую фигуру дочерней фигуры или диапазон дочерних фигур.

Синтаксис

expression. ParentGroup

Выражение Переменная, представляющая объект Shape .

Возвращаемое значение

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

См. также

Объект Shape

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через