Objeto ConnectorFormat (PowerPoint)

Contiene propiedades y métodos aplicables a conectores.

Comentarios

Un conector es una línea que une dos formas por unos puntos denominados sitios de conexión. Si se reorganizan las formas que están conectadas, la geometría del conector se ajusta automáticamente para que las formas permanezcan conectadas.

Utilice la propiedad ConnectorFormat para devolver un objeto ConnectorFormat. Utilice los métodos BeginConnect y EndConnect para unir el final del conector a otras formas del documento. Utilice el método RerouteConnections para buscar automáticamente la ruta más corta entre las dos formas unidas por el conector. Use la propiedad Connector para ver si una forma es un conector.

Tenga en cuenta que se asigna un tamaño y una posición al agregar un conector a la colección Shapes, el tamaño y posición se ajustan automáticamente al adjuntar el principio y el final del conector a otras formas de la colección. Por lo tanto, si desea unir un conector a otras formas, el tamaño inicial y la posición que se especifique son irrelevantes. Del mismo modo, se especifican los sitios de conexión de una forma a unir el conector cuando lo, pero utiliza el método RerouteConnections después el conector puede cambiar los sitios de conexión se une el conector, haciendo que su opción original de los sitios de conexión sea irrelevante.

Los lugares de conexión suelen enumerarse según las normas que se muestran en la siguiente tabla.

Tipo de forma	Sistema de numeración de los lugares de conexión
Autoformas, WordArt, imágenes y objetos OLE	La numeración de los lugares de conexión comienza desde arriba y continúa en sentido contrario a las agujas del reloj.
Formas libres	Los lugares de conexión son los vértices y se corresponden con los números de vértice.

Ejemplo:

En el siguiente ejemplo se agregan dos rectángulos a myDocument y se conectan con un conector curvado.

Set myDocument = ActivePresentation.Slides(1)

Set s = myDocument.Shapes

Set firstRect = s.AddShape(msoShapeRectangle, 100, 50, 200, 100)

Set secondRect = s.AddShape(msoShapeRectangle, 300, 300, 200, 100)

With s.AddConnector(msoConnectorCurve, 0, 0, 0, 0).ConnectorFormat

    .BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1

    .EndConnect ConnectedShape:=secondRect, ConnectionSite:=1

    .Parent.RerouteConnections

End With

Para saber los números que corresponden a los lugares de conexión de una forma compleja, experimente con la forma después de activar la grabadora de macros y examine el código grabado; o también puede crear una forma, seleccionarla y después ejecutar el siguiente ejemplo. El código numera cada lugar de conexión y lo asocia a un conector.

Set mainshape = ActiveWindow.Selection.ShapeRange(1)

With mainshape

    bx = .Left + .Width + 50

    by = .Top + .Height + 50

End With

With ActiveWindow.View.Slide

    For j = 1 To mainshape.ConnectionSiteCount

        With .Shapes.AddConnector(msoConnectorStraight, bx, by, bx + 50, by + 50)

            .ConnectorFormat.EndConnect mainshape, j

            .ConnectorFormat.Type = msoConnectorElbow

            .Line.ForeColor.RGB = RGB(255, 0, 0)

            l = .Left

            t = .Top

        End With

        With .Shapes.AddTextbox(msoTextOrientationHorizontal, l, t, 36, 14)

            .Fill.Visible = False

            .Line.Visible = False

            .TextFrame.TextRange.Text = j

        End With

    Next j

End With

Consulte también

Referencia del modelo de objetos de PowerPoint

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.