Propiedad Shape.ParentGroup (Word)
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
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.