ConnectorFormat.EndConnect-Methode (PowerPoint)

Fügt das Ende der angegebenen Verbindung an eine angegebene Form an.

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	Eine Verbindungsseite an der durch ConnectedShape angegebenen Form. 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 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 an den Anfang der Verbindung an eine Form anzufügen.

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

Beispiel

In diesem Beispiel wird der ersten Folie der aktiven Präsentation zwei Rechtecke hinzugefügt und die Rechtecke durch eine gekrümmte Verbindung. Beachten Sie, dass die RerouteConnections -Methode es irrelevant welche Werte Sie für den Rechtecken, die mit den Methoden BeginConnect und EndConnect verwendet angeben.

Set myDocument = ActivePresentation.Slides(1)

Set s = myDocument.Shapes
Set firstRect = s.AddShape(msoShapeRectangle, 100, 50, 200, 100)
Set secondRect = s.AddShape(msoShapeRectangle, 300, 300, 200, 100)

With s.AddConnector(msoConnectorCurve, 0, 0, 100, 100) _
        .ConnectorFormat
    .BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1
    .EndConnect ConnectedShape:=secondRect, ConnectionSite:=1
    .Parent.RerouteConnections
End With

Siehe auch

ConnectorFormat-Objekt

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.