BeginDisconnect 方法

       

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

expression.BeginDisconnect

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