Shapes.AddConnector-Methode (Projekt)

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

Syntax

Ausdruck verwendet werden. 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 Startpunkts des Verbinders relativ zur oberen linken Ecke des Dokuments.
BeginY Erforderlich Single Die vertikale Position (in Punkten) des Startpunkts des Verbinders.
EndX Erforderlich Single Die horizontale Position (in Punkten) des Endpunkts des Verbinders.
EndY Erforderlich Single Die vertikale Position (in Punkten) 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

Shape

Hinweise

Hinweis

In Project funktionieren die Methoden zum Anfügen des Anfangs und des Endes eines Verbinders an andere Shapes 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 Cloud-Shapes enthält, und dann eine blau-grüne gekrümmte Verbindungslinie mit einer Breite von zwei Punkten hinzugefügt.

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-Objekt, Shape-Objekt,ConnectorFormat-Eigenschaft, AutoShapeType-Eigenschaft,MsoConnectorType

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.

  • Last updated on