Propriedade Shape.ParentGroupShape (Publisher)

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

Sintaxe

expressão. ParentGroupShape

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

Valor de retorno

Forma

Exemplo

Este exemplo cria duas formas no documento ativo e agrupa essas formas. Ao utilizar uma forma no grupo, acede ao grupo principal e preenche todas as formas no grupo principal com o mesmo padrão 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 shpGroup As Shape 
 
 With ActiveDocument.Pages(1).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 shpGroup = ActiveDocument.Pages(1).Shapes(1) _ 
 .GroupItems(1).ParentGroupShape 
 shpGroup.Fill.Patterned Pattern:=msoPattern25Percent 
 
End Sub

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.