Shapes.AddConnector-Methode (Project)

Erstellt einen Verbinder und gibt ein Shape-Objekt zurück, das den neuen Verbinder darstellt.

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. Kann eine der folgenden Konstanten sein: msoConnectorElbow, msoConnectorTypeMixed, msoConnectorCurve oder msoConnectorStraight.
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 Ausgangspunkts des Verbinders.
EndX	Erforderlich	Single	Die horizontale Position (in Punkt) des Endpunkts des Verbinders.
EndY	Erforderlich	Single	Die vertikale Position (in Punkt) des Endpunkts des Verbinders.
Typ	Erforderlich	MSOCONNECTORTYPE
BeginX	Erforderlich	FLOAT
BeginY	Erforderlich	FLOAT
EndX	Erforderlich	FLOAT
EndY	Erforderlich	FLOAT
Name	Erforderlich/Optional	Datentyp	Beschreibung

Rückgabewert

Form

HinwBemerkungeneise

Hinweis

In Project funktionieren die Methoden zum Anfügen von Anfang und Ende eines Verbinders an andere Formen im Bericht (ConnectorFormat.BeginConnect und ConnectorFormat.EndConnect) nicht. Verwenden Sie nur die AddConnector-Parameter , um den Verbinder zu positionieren. Weitere Informationen finden Sie unter der ConnectorFormat-Eigenschaft .

Beispiel

Im folgenden Beispiel wird ein Bericht erstellt, der zwei Cloudformen enthält, und dann eine blau-grün gekrümmte Verbinderlinie hinzugefügt, die zwei Punkte breit ist.

Sub ConnectClouds()
    Dim shapeReport As Report
    Dim reportName As String
    Dim connectorShape As shape
    
    ' Add a report.
    reportName = "Cloud report"
    Set shapeReport = ActiveProject.Reports.Add(reportName)

    ' Add two clouds.
    Dim cloudShape1 As shape
    Dim cloudShape2 As shape
    Set cloudShape1 = shapeReport.Shapes.AddShape(msoShapeCloud, 20, 20, 100, 60)
    Set cloudShape2 = shapeReport.Shapes.AddShape(msoShapeCloud, 100, 200, 60, 100)
    
    Set connectorShape = shapeReport.Shapes.AddConnector(msoConnectorCurve, 80, 80, 130, 200)
        
    With connectorShape
        .Line.Weight = 2
        .Line.ForeColor.RGB = &HAAFF00
    End With
End Sub

Siehe auch

Shapes-ObjektShape-ObjektConnectorFormat-EigenschaftAutoShapeType-EigenschaftMsoConnectorType

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.