Shapes.AddConnector-Methode (PowerPoint)

Erstellt einen Connector. Gibt ein Shape -Objekt, das die neue Verbindung darstellt. Wenn eine Verbindung hinzugefügt wird, ist es nicht auf einen anderen Wert verbunden. Verwenden Sie die Methoden BeginConnect und EndConnect Anfang und Ende einer Verbindung mit anderen Formen im Dokument anfügen.

Syntax

Ausdruck. AddConnector (Type, BeginX, Beginy, EndX, EndY)

expression Eine Variable, die ein Shapes-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
Typ Erforderlich MsoConnectorType Der Typ der Verbindung.
BeginX Erforderlich Single Die in Punkten gemessene horizontale Position des Anfangspunkts der Verbindung relativ zum linken Folienrand.
BeginY Erforderlich Single Die in Punkten gemessene vertikale Position des Anfangspunkts der Verbindung relativ zum oberen Folienrand.
EndX Erforderlich Single Die in Punkten gemessene horizontale Position des Endpunkts der Verbindung relativ zum linken Folienrand.
EndY Erforderlich Single Die in Punkten gemessene vertikale Position des Endpunkts der Verbindung relativ zum oberen Folienrand.

Rückgabewert

Form

Bemerkungen

Wenn Sie eine Verbindung mit einer Form verbinden, werden die Größe und Position der Verbindung bei Bedarf automatisch angepasst. Wenn Sie also einen Verbinder an andere Formen anfügen möchten, sind die Position und die Dimensionen, die Sie beim Hinzufügen des Verbinders angeben, irrelevant.

Beispiel

This example adds two rectangles to myDocument and connects them with a curved connector. Note that when you attach the connector to the rectangles, the size and position of the connector are automatically adjusted; therefore, the position and dimensions you specify when adding the callout are irrelevant (dimensions must be nonzero).

Sub NewConnector() 
 
    Dim shpShapes As Shapes 
    Dim shpFirst As Shape 
    Dim shpSecond As Shape 
 
    Set shpShapes = ActivePresentation.Slides(1).Shapes 
    Set shpFirst = shpShapes.AddShape(Type:=msoShapeRectangle, _ 
        Left:=100, Top:=50, Width:=200, Height:=100) 
    Set shpSecond = shpShapes.AddShape(Type:=msoShapeRectangle, _ 
        Left:=300, Top:=300, Width:=200, Height:=100) 
    With shpShapes.AddConnector(Type:=msoConnectorCurve, BeginX:=0, _ 
            BeginY:=0, EndX:=100, EndY:=100).ConnectorFormat 
        .BeginConnect ConnectedShape:=shpFirst, ConnectionSite:=1 
        .EndConnect ConnectedShape:=shpSecond, ConnectionSite:=1 
        .Parent.RerouteConnections 
    End With 
 
End Sub

Siehe auch

Shapes-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.