Método Shape.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.
expresión. RerouteConnections
Expresión Variable que representa un objeto Shape .
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.
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
¿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.