Shapes.BuildFreeform-Methode (Project)

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

Hinweise

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.