ConnectorFormat.EndConnect-Methode (Excel)

Fügt das Ende der angegebenen Verbindung an eine angegebene Form an. Wenn bereits eine Verbindung zwischen dem Ende der Verbindung und eine andere Form vorhanden ist, wird diese Verbindung unterbrochen.

Wenn das Ende der Verbindung noch nicht an der angegebenen Verbindungsseite positioniert ist, wird diese Methode verschiebt das Ende der Verbindung zu der Verbindungsseite und passt die Größe und Position der Verbindung.

Verwenden Sie die BeginConnect Methode, um den Anfang der Verbindung an eine Form anzufügen.

Syntax

Ausdruck. EndConnect (ConnectedShape, ConnectionSite)

Ausdruck Eine Variable, die ein ConnectorFormat-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
ConnectedShape	Erforderlich	Shape	Das Shape, das Ende der Verbindung zum Anfügen. Das angegebene Shape -Objekt muss sich in derselben Shapes -Auflistung wie die Verbindung.
ConnectionSite	Erforderlich	Long	Muss eine ganze Zahl zwischen 1 und der Zahl, die von der ConnectionSiteCount -Eigenschaft der angegebenen Form zurückgegeben. Wenn den Connector automatisch den kürzesten Pfad zwischen den beiden Formen suchen, die eine Verbindung hergestellt werden soll, geben Sie eine gültige ganze Zahl für dieses Argument an, und klicken Sie dann verwenden Sie die RerouteConnections -Methode, nachdem die Verbindung mit beiden Formen an beiden Enden verbunden ist.

HinwBemerkungeneise

Wenn Sie einem Objekt eine Verbindung zuordnen, werden Position und Größe der Verbindung, wenn notwendig, automatisch angepasst.

Beispiel

In diesem Beispiel werden myDocument zwei Rechtecke hinzugefügt und mit einem gekrümmten Verbinder verbunden. Beachten Sie, dass die RerouteConnections-Methode irrelevant macht, welche Werte Sie für die ConnectionSite-Argumente angeben, die mit den Methoden BeginConnect und EndConnect verwendet werden.

Set myDocument = Worksheets(1) 
Set s = myDocument.Shapes 
Set firstRect = s.AddShape(msoShapeRectangle, 100, 50, 200, 100) 
Set secondRect = s.AddShape(msoShapeRectangle, 300, 300, 200, 100) 
Set c = s.AddConnector(msoConnectorCurve, 0, 0, 100, 100) 
With c.ConnectorFormat 
 .BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1 
 .EndConnect ConnectedShape:=secondRect, ConnectionSite:=1 
 c.RerouteConnections 
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.