Compartilhar via


Propriedade Shape.ParentGroup (Word)

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 Obrigatório. Uma variável que representa um objeto Shape.

Exemplo

Este exemplo cria duas formas no documento ativo e agrupa essas formas. Em seguida, usando uma forma no grupo, ele acessa o grupo pai e preenche todas as formas no grupo pai com a mesma cor de preenchimento. Este exemplo pressupõe que o documento ativo não contém, no momento, nenhuma forma. Se isso ocorrer, poderá ocorrer um erro.

Sub ParentGroupShape() 
 Dim pgShape As Shape 
 
 'Add two shapes to active document and group 
 With ActiveDocument.Shapes 
 .AddShape Type:=msoShapeOval, Left:=72, _ 
 Top:=72, Width:=100, Height:=100 
 .AddShape Type:=msoShapeHeart, Left:=110, _ 
 Top:=120, Width:=100, Height:=100 
 .Range(Array(1, 2)).Group 
 End With 
 
 Set pgShape = ActiveDocument.Shapes(1) _ 
 .GroupItems(1).ParentGroup 
 pgShape.Fill.ForeColor.RGB = RGB(Red:=100, Green:=0, Blue:=255) 
 
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.