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

expresión. 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. Con una forma del grupo, obtiene acceso al grupo primario y rellena todas las formas del grupo primario 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.