Shapes.AddConnector-Methode (Excel)

Artikel
04/07/2023

Erstellt einen Connector. Gibt ein Shape -Objekt, das die neue Verbindung darstellt. Mit dem Hinzufügen einer Verbindung ist die Verbindung noch nicht hergestellt. Mithilfe der Methoden BeginConnect und EndConnect können Sie Anfang und Ende der Verbindung anderen Formen im Dokument zuordnen.

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 hinzuzufügende Verbindungstyp.
BeginX	Erforderlich	Single	Die horizontale Position (in Punkt) des Ausgangspunkts des Verbinders relativ zur linken oberen Ecke des Dokuments.
BeginY	Erforderlich	Single	Die vertikale Position (in Punkt) des Anfangspunkts der Verbindung, relativ zur oberen linken Ecke des Dokuments.
EndX	Erforderlich	Single	Die horizontale Position (in Punkt) des Endpunkts der Verbindung, relativ zur oberen linken Ecke des Dokuments.
EndY	Erforderlich	Single	Die vertikale Position (in Punkt) des Endpunkts des Verbinders relativ zur oberen linken Ecke des Dokuments.

Rückgabewert

Shape

Hinweise

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

Im folgenden Beispiel wird einem neuen Bereich in einem neuen Arbeitsblatt eine gekrümmte Verbindung hinzugefügt.

Sub AddCanvasConnector() 
 
    Dim wksNew As Worksheet 
    Dim shpCanvas As Shape 
 
    Set wksNew = Worksheets.Add 
 
    'Add drawing canvas to new worksheet 
    Set shpCanvas = wksNew.Shapes.AddCanvas( _ 
        Left:=150, Top:=150, Width:=200, Height:=300) 
 
    'Add connector to the drawing canvas 
    shpCanvas.CanvasItems.AddConnector _ 
        Type:=msoConnectorStraight, BeginX:=150, _ 
        BeginY:=150, EndX:=200, EndY:=200 
 
End Sub

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.

Freigeben über