ConnectorFormat.BeginConnect-Methode (Excel)

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

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

Verwenden Sie die EndConnect -Methode an um das Ende der Verbindung mit einer Form zu verbinden.

Syntax

Ausdruck. BeginConnect (ConnectedShape, ConnectionSite)

Ausdruck Eine Variable, die ein ConnectorFormat-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
ConnectedShape	Erforderlich	Form	Die Form, der der Anfang der Verbindung zugeordnet werden soll. Das angegebene Shape-Objekt muss sich in derselben Shapes-Auflistung wie der Verbinder befinden.
ConnectionSite	Erforderlich	Long	Eine Verbindungsstelle in der von ConnectedShape angegebenen Form. Muss eine ganze Zahl zwischen 1 und der Zahl, die von der ConnectionSiteCount -Eigenschaft der angegebenen Form zurückgegeben. Wenn der Verbinder automatisch den kürzesten Pfad zwischen den beiden Shapes finden soll, geben Sie eine gültige ganze Zahl für dieses Argument an, und verwenden Sie dann die RerouteConnections-Methode , nachdem der Verbinder an beiden Enden an Shapes angefügt wurde.

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.