Shapes.BuildFreeform-Methode (Project)

  • Artikel

Erstellt ein FreeformBuilder-Objekt , das eine neue Freihandformzeichnung darstellt. Die Freihandformzeichnung kann in ein Shape-Objekt konvertiert werden.

Syntax

Ausdruck. BuildFreeform(EditingType,X1,Y1)

expression Eine Variable, die ein Shapes-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
EditingType Erforderlich MsoEditingType Die Bearbeitungseigenschaft des ersten Knotens.
X1 Erforderlich Single Die Position (in Punkt) des ersten Knotens in der Freihandformzeichnung relativ zum linken Rand des Berichts.
Y1 Erforderlich Single Die Position (in Punkt) des ersten Knotens in der Freihandformzeichnung relativ zum oberen Rand des Berichts.
EditingType Erforderlich MSOEDITINGTYPE
X1 Erforderlich FLOAT
Y1 Erforderlich FLOAT
Name Erforderlich/Optional Datentyp Beschreibung

Rückgabewert

FreeformBuilder

HinwBemerkungeneise

Verwenden Sie die AddNodes -Methode, um das Freihandobjekt Segmente hinzuzufügen. Nachdem Sie der Freihandform mindestens ein Segment hinzugefügt haben, können Sie die ConvertToShape-Methode verwenden, um das FreeformBuilder-Objekt in ein Shape-Objekt mit der von Ihnen definierten geometrischen Beschreibung zu konvertieren.

Beispiel

Im folgenden Beispiel wird dem Bericht eine Freihandform mit fünf Scheitelpunkten hinzugefügt, die Freihandform in eine Form konvertiert und dann der Hintergrundstil der Form geändert.

Sub AddFreeform2()
    Dim shapeReport As Report
    Dim reportName As String
    Dim freeformBuild As FreeformBuilder
    Dim freeformShape As shape

    reportName = "Freeform2 report"
    Set shapeReport = ActiveProject.Reports.Add(reportName)
    
    Set freeformBuild = shapeReport.Shapes.BuildFreeform(msoEditingCorner, 360, 200)
    
    With freeformBuild
        .AddNodes msoSegmentCurve, msoEditingCorner, 380, 230, 400, 450, 300
        .AddNodes msoSegmentCurve, msoEditingAuto, 480, 200
        .AddNodes msoSegmentLine, msoEditingAuto, 480, 400
        .AddNodes msoSegmentLine, msoEditingAuto, 360, 200
        .ConvertToShape
    End With
    
    Set freeformShape = shapeReport.Shapes(1)
    
    freeformShape.BackgroundStyle = msoBackgroundStylePreset10
End Sub

Siehe auch

Shapes-ObjektShape-Objekt

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.