Propriedade ShapeRange.ParentGroup (PowerPoint)

Artigo
04/07/2023

Retorna um objeto Shape que representa a forma pai comum de uma forma filha ou um intervalo de formas filhas.

Sintaxe

expressão. ParentGroup

Expressão Uma variável que representa um objeto ShapeRange .

Valor de retorno

Forma

Exemplo

Este exemplo cria duas formas no primeiro slide na apresentação ativa e agrupa essas formas; em seguida, usando uma forma no grupo, acessa o grupo pai e preenche todas as formas no grupo pai com a mesma cor de preenchimento. Este exemplo pressupõe que o primeiro slide da apresentação ativa não contenha nenhuma forma no momento. Se isso acontecer, você receberá um erro.

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

Confira também

Objeto ShapeRange

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.

Partilhar via