Método Shape.RerouteConnections (Publisher)

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 Shape .

Comentarios

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

Ejemplo:

En este ejemplo se agregan dos rectángulos a la primera página de la publicación activa que se conectan con un conector curvo. Tenga en cuenta que el método RerouteConnections invalida los valores que se proporcionan para los argumentos ConnectionSite usados con los métodos BeginConnect y EndConnect .

Dim shpRect1 As Shape 
Dim shpRect2 As Shape 
 
With ActiveDocument.Pages(1).Shapes 
 
 ' Add two new rectangles. 
 Set shpRect1 = .AddShape(Type:=msoShapeRectangle, _ 
 Left:=100, Top:=50, Width:=200, Height:=100) 
 Set shpRect2 = .AddShape(Type:=msoShapeRectangle, _ 
 Left:=300, Top:=300, Width:=200, Height:=100) 
 
 ' Add a new curved connector. 
 With .AddConnector(Type:=msoConnectorCurve, _ 
 BeginX:=0, BeginY:=0, EndX:=100, EndY:=100) _ 
 .ConnectorFormat 
 
 ' Connect the new connector to the two rectangles. 
 .BeginConnect ConnectedShape:=shpRect1, ConnectionSite:=1 
 .EndConnect ConnectedShape:=shpRect2, ConnectionSite:=1 
 
 ' Reroute the connector to create the shortest path. 
 .Parent.RerouteConnections 
 End With 
 
End With 

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.