Propiedad ShapeRange.ParentGroup (PowerPoint)

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 Variable que representa un objeto ShapeRange .

Valor devuelto

Forma

Ejemplo

En este ejemplo se crean dos formas en la primera diapositiva de la presentación activa y se agrupan dichas formas; a continuación utilizando una forma del grupo, se tiene acceso al grupo primario y se rellenan todas las formas del grupo primario con el mismo color de relleno. En este ejemplo se supone que la primera diapositiva de la presentación activa no contiene actualmente ninguna forma. Si la tiene, se producirá un error.

Sub ParentGroup()

    Dim sldNewSlide As Slide
    Dim shpParentGroup As Shape

    'Add two shapes to active document and group

    Set sldNewSlide = ActivePresentation.Slides _
        .Add(Index:=1, Layout:=ppLayoutBlank)

    With sldNewSlide.Shapes
        .AddShape Type:=msoShapeBalloon, Left:=72, _
            Top:=72, Width:=100, Height:=100

        .AddShape Type:=msoShapeOval, Left:=110, _
            Top:=120, Width:=100, Height:=100

        .Range(Array(1, 2)).Group
    End With

    Set shpParentGroup = ActivePresentation.Slides(1).Shapes(1) _
        .GroupItems(1).ParentGroup

    shpParentGroup.Fill.ForeColor.RGB = RGB _
        (Red:=151, Green:=51, Blue:=250)

End Sub

Consulte también

Objeto ShapeRange

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.