Propriedade Shape.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 Shape .

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 Shape

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.

Compartilhar via