Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

VBA-Begriff: FreeformBuilder-Objekt

Shapes-Auflistung (Shape-Objekt)
FreeformBuilder-Objekt

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