ConnectorFormat.BeginDisconnect-Methode (Publisher)

Der Anfang der angegebenen Verbindung wird von der Form getrennt, mit der sie verbunden ist.

Syntax

Ausdruck. BeginDisconnect

Ausdruck Eine Variable, die ein ConnectorFormat-Objekt darstellt.

HinwBemerkungeneise

Diese Methode ändert weder die Größe noch die Position des Verbinders. der Anfang des Verbinders bleibt an einem Verbindungsstandort positioniert, ist aber nicht mehr verbunden.

Verwenden Sie die EndDisconnect -Methode, um das Ende 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.