Shapes.AddLine-Methode (Project)

Fügt einem Bericht eine Linie hinzu und gibt ein Shape-Objekt zurück, das die Linie darstellt.

Syntax

Ausdruck. AddLine (BeginX,Beginy,EndX,EndY)

expression Eine Variable, die ein Shapes-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
BeginX	Erforderlich	Single	Die horizontale Position (in Punkt) des Startpunkts relativ zum linken Rand des Berichts.
BeginY	Erforderlich	Single	Die vertikale Position (in Punkt) des Startpunkts relativ zum oberen Rand des Berichts.
EndX	Erforderlich	Single	Die horizontale Position (in Punkt) des Endpunkts relativ zum linken Rand des Berichts.
EndY	Erforderlich	Single	Die vertikale Position (in Punkt) des Endpunkts relativ zum oberen Rand des Berichts.
BeginX	Erforderlich	FLOAT
BeginY	Erforderlich	FLOAT
EndX	Erforderlich	FLOAT
EndY	Erforderlich	FLOAT
Name	Erforderlich/Optional	Datentyp	Beschreibung

Rückgabewert

Shape

Hinweise

Um die Zeile zu formatieren, verwenden Sie die Shape.Line-Eigenschaft .

Beispiel

Im folgenden Beispiel wird eine violette gestrichelte Linie mit einem Pfeil am Ende erstellt.

Sub AddBigArrow()
    Dim shapeReport As Report
    Dim reportName As String
    Dim lineShape As shape
    
    ' Add a report.
    reportName = "Line report"
    Set shapeReport = ActiveProject.Reports.Add(reportName)

    Set lineShape = shapeReport.Shapes.AddLine(20, 50, 320, 100)
    
    With lineShape.Line
        .DashStyle = msoLineDashDot
        .Weight = 3
        .EndArrowheadStyle = msoArrowheadTriangle
        .EndArrowheadWidth = msoArrowheadWidthMedium
        .ForeColor.RGB = &HFF0090
    End With
End Sub

Siehe auch

Shapes-ObjektShape-ObjektLine-Eigenschaft

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.