Método ShapeRange.RerouteConnections (PowerPoint)

Redistribuye los conectores para que tomen la ruta más corta posible entre las formas que conectan. Para ello, el método RerouteConnections puede separar los finales de un conector y volver a conectarlos a sitios de conexión diferentes en las formas conectadas.

Sintaxis

expresión. RerouteConnections

Expresión Variable que representa un objeto ShapeRange .

Comentarios

Este método redistribuye todos los conectores adjuntos a la forma especificada; si la forma especificada es un conector, se vuelve a redistribuir.

Si este método se aplica a un conector, sólo se volverá a redistribuir dicho conector. Si este método se aplica a una forma conectada, se volverán a redistribuir todos los conectores a dicha forma.

Ejemplo:

En este ejemplo se agregan dos rectángulos a myDocument, se adjuntan a un conector curvado y, a continuación, se cambia la ruta del conector para que tome la ruta más corta posible entre los dos rectángulos. Observe que el método RerouteConnections ajusta el tamaño y la posición del conector y determina qué conexión de sitios que se adjunta, de forma que los valores que especifica inicialmente para los argumentos ConnectionSite utilizados con los métodos BeginConnect y EndConnect son irrelevantes.

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)
Set newConnector = s _
    .AddConnector(msoConnectorCurve, 0, 0, 100, 100)

With newConnector.ConnectorFormat
    .BeginConnect firstRect, 1
    .EndConnect secondRect, 1
End With

newConnector.RerouteConnections

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.