Propiedad Shape.ParentGroupShape (Publisher)

Devuelve un objeto Shape que representa la forma primaria común de una forma secundaria o un intervalo de formas secundarias.

Sintaxis

más sencilla.ParentGroupShape

expresión Variable que representa un objeto Shape.

Valor devuelto

Forma

Ejemplo

En este ejemplo, se crean y se agrupan dos formas en el documento activo. Al usar una forma del grupo, accede al grupo principal y rellena todas las formas con el mismo patrón de relleno. Se supone que el documento activo no contiene ninguna forma actualmente. En caso contrario, puede producirse un error.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.