Propriedade Shape.ParentGroup (PowerPoint)

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

Sintaxe

expressão. Grupo Principal

expressão Uma variável que representa um objeto Shape.

Valor de retorno

Forma

Exemplo

Este exemplo cria duas formas no primeiro diapositivo na apresentação ativa e agrupa essas formas; em seguida, ao utilizar uma forma no grupo, acede ao grupo principal e preenche todas as formas no grupo principal com a mesma cor de preenchimento. Este exemplo pressupõe que o primeiro diapositivo da apresentação ativa não contém atualmente formas. Se for o caso, 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.