ConnectorFormat.EndDisconnect-Methode (Publisher)

Das Ende der angegebenen Verbindung wird von der Form getrennt, mit der sie verbunden ist.

Syntax

Ausdruck. EndDisconnect

Ausdruck Eine Variable, die ein ConnectorFormat-Objekt darstellt.

HinwBemerkungeneise

Diese Methode ändert nicht die Größe oder Position der Verbindung. Das Ende der Verbindung bleibt an der Verbindungsseite positioniert, ist jedoch nicht mehr verbunden.

Verwenden Sie die BeginDisconnect -Methode, um den Anfang der Verbindung von einer Form zu trennen.

Beispiel

Dieses Beispiel fügt zwei Rechtecke zu der ersten Seite der aktiven Publikation hinzu, verbindet sie mit einer Verbindung, erstellt die Verbindung automatisch entlang des kürzesten Weges neu und trennt dann die Verbindung von den Rechtecken.

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 und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.