Table of contents
TOC
Recolher sumário
Expandir sumário

Propriedade Shape.ParentGroupShape (Editor)Shape.ParentGroupShape Property (Publisher)

office 365 dev account|Última Atualização: 22/03/2018
|
3 Colaboradores

Retorna um objeto Shape que representa a forma pai comum de uma forma filha ou um intervalo de formas filhas.Returns a Shape object that represents the common parent shape of a child shape or a range of child shapes.

SintaxeSyntax

expressão. ParentGroupShapeexpression. ParentGroupShape

_expression_A variável que representa um objeto Shape ._expression_A variable that represents a Shape object.

Valor retornadoReturn Value

FormaShape

ExemploExample

Este exemplo cria duas formas no documento ativo e agrupa essas formas. Em seguida, ao usar uma forma no grupo, ele acessa o grupo pai e preenche todas as formas no grupo 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.This example creates two shapes in the active document and groups those shapes. Then using one shape in the group, it accesses the parent group and fills all shapes in the parent group with the same fill pattern. This example assumes that the active document does not currently contain any shapes. If it does, an error may occur.

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
© 2018 Microsoft