Compartilhar via

Propriedade Shape.ParentGroupShape (Publisher)

  • Artigo

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. Usando uma forma no grupo, ela acessa o grupo pai e preenche todas as formas no grupo pai 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.