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

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