Visio Automation Reference 
Shape.Disconnect Method 
Unglues the specified connector end points and offsets them the specified amount from the shapes to which they were joined.
Version Information
 Version Added:  Visio 2010

Syntax

expression.Disconnect(ConnectorEnd, OffsetX, OffsetY, Units)

expression   A variable that represents a Shape object.

Parameters

Name Required/Optional Data Type Description 
ConnectorEnd Required VisConnectorEnds The end of the connector to disconnect. 
OffsetX Required Double The x-distance that the connector end is moved away from the shape. 
OffsetY Required Double The y-distance that the connector end is moved away from the shape. 
Units Required VisUnitCodes The units of measure for the assigned offset values. 

Return Value
Nothing

Remarks


ConnectorEnd must be one of the following VisConnectorEnds constants.

Constant Value Description 
visConnectorBeginPoint 0 The begin point of the connector. 
visConnectorEndPoint 1 The end point of the connector. 
visConnectorBothEnds 2 Both the begin and the end point of the connector. 

Sub ttt()
    Dim shp As Visio.Shape
    Set shp = ActiveWindow.Selection(1)
    shp.Disconnect visConnectorBothEnds, 1, 1, visCentimeters
End Sub