ConnectorFormat.BeginConnect-Methode (Publisher)

Fügt den Anfang der angegebenen Verbindung an eine angegebene Form an.

Syntax

Ausdruck. BeginConnect (ConnectedShape, ConnectionSite)

Ausdruck Eine Variable, die ein ConnectorFormat-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
ConnectedShape	Erforderlich	Shape	Das Shape mit dem Microsoft Publisher den Anfang der Verbindung verbindet. Das angegebene Shape -Objekt muss sich in derselben Shapes -Auflistung wie die Verbindung.
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. Verbindungspunkte werden nummeriert, beginnend am Anfang der angegebenen Form und gegen den Uhrzeigersinn um das Shape verschieben. 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 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 ist, verschiebt diese Methode den Anfang der Verbindung zu der Verbindungsseite und passt Größe und Position der Verbindung an.

Wenn Sie eine Verbindung mit einem Objekt verbinden, werden Größe und Position der Verbindung bei Bedarf automatisch angepasst.

Verwenden Sie die EndConnect -Methode, um das Ende der Verbindung an eine Form anzufügen.

Beispiel

In dem folgenden Beispiel werden zwei Rechtecke zur ersten Seite der aktiven Publikation hinzugefügt und durch eine gekrümmte Verbindung miteinander verbunden. Beachten Sie, dass die RerouteConnections-Methode die Werte überschreibt, die Sie für die ConnectionSite-Argumente angeben, die mit den Methoden BeginConnect und EndConnect verwendet werden.

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 curved connector. 
 With .AddConnector(Type:=msoConnectorCurve, _ 
 BeginX:=0, BeginY:=0, EndX:=100, EndY:=100) _ 
 .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 
 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.