EndDisconnect 方法

       

将指定的连接符终点与所连接的形状断开。该方法不改变该连接符的大小或位置。该连接符终点仍然在连接位置上,但已不再相连。使用 BeginDisconnect 方法将连接符的起点与形状断开。

expression.EndDisconnect

expression  必选。该表达式返回一个 ConnectorFormat 对象。

示例

本示例向当前演示文稿的第一张幻灯片中添加两个矩形框,并用连接符连接它们,且自动地把连接符的路径修改为最短路径,然后断开连接符与矩形框之间的连接。

Set myDocument = ActivePresentation.Slides(1)
Set s = myDocument.Shapes
Set firstRect = s.AddShape(msoShapeRectangle, 100, 50, 200, 100)
Set secondRect = s.AddShape(msoShapeRectangle, 300, 300, 200, 100)
With s.AddConnector(msoConnectorCurve, 0, 0, 0, 0).ConnectorFormat
    .BeginConnect firstRect, 1
    .EndConnect secondRect, 1
    .Parent.RerouteConnections
    .BeginDisconnect
    .EndDisconnect
End With