Share via


Método ShapeRange.RerouteConnections (Excel)

Este método redirige todos los conectores conectados a la forma especificada; si la forma especificada es un conector, se vuelve a enrutar.

Sintaxis

expresión. RerouteConnections

Expresión Variable que representa un objeto ShapeRange .

Comentarios

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.

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.

Tenga en cuenta que el método RerouteConnections ajusta el tamaño y la posición del conector y determina a qué sitios de conexión se asocia, por lo que los valores que especifique inicialmente para los argumentos ConnectionSite usados con los métodos BeginConnect y EndConnect son irrelevantes.

Set myDocument = Worksheets(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

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.