ConnectorFormat.EndDisconnect method (Publisher)
Detaches the end of the specified connector from the shape to which it is attached.
Syntax
expression.EndDisconnect
expression A variable that represents a ConnectorFormat object.
Remarks
This method doesn't alter the size or position of the connector; the end of the connector remains positioned at a connection site but is no longer connected.
Use the BeginDisconnect method to detach the beginning of the connector from a shape.
Example
This example adds two rectangles to the first page in the active publication, attaches them with a connector, automatically reroutes the connector along the shortest path, and then detaches the connector from the rectangles.
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
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.
Feedback
https://aka.ms/ContentUserFeedback.
Coming soon: Throughout 2024 we will be phasing out GitHub Issues as the feedback mechanism for content and replacing it with a new feedback system. For more information see:Submit and view feedback for