Stellt die Geometrie eines Freihandobjekts während seiner Erstellung dar.
Verwenden des FreeformBuilder-Objekts
Verwenden Sie die BuildFreeform-Methode, um ein FreeformBuilder-Objekt zurückzugeben. Mit Hilfe der AddNodes-Methode können Sie dem Freihandobjekt Knoten hinzufügen. Verwenden Sie die ConvertToShape-Methode, um die im FreeformBuilder-Objekt definierte Form zu erstellen und sie der Shapes-Auflistung hinzuzufügen. Im folgenden Beispiel wird in myDocument ein Freihandobjekt mit vier Abschnitten eingefügt.
Set myDocument = Worksheets(1) With myDocument.Shapes.BuildFreeform(msoEditingCorner, 360, 200) .AddNodes msoSegmentCurve, msoEditingCorner, _ 380, 230, 400, 250, 450, 300 .AddNodes msoSegmentCurve, msoEditingAuto, 480, 200 .AddNodes msoSegmentLine, msoEditingAuto, 480, 400 .AddNodes msoSegmentLine, msoEditingAuto, 360, 200 .ConvertToShape End With