Propiedad Shape.ParentGroup (Word)

  • Artículo

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

Sintaxis

expresión. ParentGroup

expresión requerida. Variable que representa un objeto Shape.

Ejemplo:

En este ejemplo, se crean y se agrupan dos formas en el documento activo. A continuación, al utilizar una forma de este grupo se obtiene acceso al grupo primario y se rellenan todas las formas de este grupo con el mismo color. Se supone que el documento activo no contiene ninguna forma actualmente. En caso contrario, puede producirse un error.

Sub ParentGroupShape() 
 Dim pgShape As Shape 
 
 'Add two shapes to active document and group 
 With ActiveDocument.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 pgShape = ActiveDocument.Shapes(1) _ 
 .GroupItems(1).ParentGroup 
 pgShape.Fill.ForeColor.RGB = RGB(Red:=100, Green:=0, Blue:=255) 
 
End Sub

Consulte también

Objeto Shape

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.