Método ConnectorFormat.EndDisconnect (Publisher)

Separa el final del conector especificado de la forma a la que está unido.

Sintaxis

expresión. EndDisconnect

Expresión Variable que representa un objeto ConnectorFormat .

Comentarios

Este método no modifica el tamaño ni la posición del conector; el final del conector sigue colocado en un sitio de conexión pero ya no está conectado.

Utilice el método BeginDisconnect para separar el principio del conector de una forma.

Ejemplo:

En este ejemplo se agregan dos rectángulos a la primera página de la publicación activa, se unen a un conector, se redistribuye automáticamente el conector para la ruta más corta y, por último, se separa el conector de los rectángulos.

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 connector. 
 With .AddConnector(Type:=msoConnectorCurve, _ 
 BeginX:=0, BeginY:=0, EndX:=0, EndY:=0) _ 
 .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 
 
 ' Disconnect the new connector from the rectangles but 
 ' leave in place. 
 .BeginDisconnect 
 .EndDisconnect 
 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.