CanvasShapes.BuildFreeform (Word)

Erstellt ein Freihandform-Objekt.

Verwenden Sie die AddNodes -Methode, um das Freihandobjekt Segmente hinzuzufügen.

BuildFreeform (EditingType, X1, Y1)

Dim docActive As Document 
 
Set docActive = ActiveDocument 
With docActive.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

Arguments

Hier sind die benannte Argumente :

EditingType (Office.MsoEditingType) - Der EditingType-Parameter kann entweder msoEditingAuto oder msoEditingCornersein; kann nicht msoEditingSmooth oder msoEditingSymmetricsein.

X1 (Single) - Die in Punkt gemessene Position des ersten Knotens in der Freihandform-Zeichnung relativ zum linken Rand des Dokuments.

Y1 (Single) - Die in Punkt gemessene Position des ersten Knotens in der Freihandform-Zeichnung relativ zum oberen Rand des Dokuments.