Shapes.AddLine-Methode (Project)

  • Artikel

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

Form

HinwBemerkungeneise

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.