Klasse FreeformBuilder - Geometrie einer Freihandform (Word VBA)

Die Klasse FreeformBuilder stellt die Geometrie einer Freihandform dar, während sie konstruiert wird. Um eine FreeformBuilder -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise


Dim fbr as FreeformBuilder
Set fbr = Application.ActiveDocument.Background.CanvasItems

AddNodes

Fügt am Ende der Freihandform, die gerade erstellt wird, ein neues Segment ein und fügt die Knoten hinzu, die das Segment definieren.

Sie können diese Methode verwenden, so oft wie Sie die Freihandform Knoten hinzuzufügen, die Sie erstellen möchten.

AddNodes (SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)


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 :

SegmentType (Office.MsoSegmentType) - Der Typ des hinzuzufügenden Segments.

EditingType (Office.MsoEditingType) - Die Bearbeitungseigenschaft des Scheitelpunkts.

X1 (Single) - Wenn die Bearbeitungsart des neuen Abschnitts MsoEditingAuto entspricht, gibt dieses Argument den horizontalen Abstand (in Punkt) von der oberen linken Ecke des Dokuments an den Endpunkt des neuen Abschnitts.

Y1 (Single) - Wenn die Bearbeitungsart des neuen Abschnitts MsoEditingAuto entspricht, gibt dieses Argument den vertikalen Abstand (in Punkt) von der oberen linken Ecke des Dokuments an den Endpunkt des neuen Abschnitts an.

Optional arguments

Die folgenden Argumente sind optional

X2 (Single) - Wenn die Bearbeitungsart des neuen Abschnitts MsoEditingCorner entspricht, gibt dieses Argument den horizontalen Abstand (in Punkt) von der oberen linken Ecke des Dokuments bis zum zweiten Kontrollpunkt für das neue Segment an.

Y2 (Single) - Wenn die Bearbeitungsart des neuen Abschnitts MsoEditingCorner entspricht, gibt dieses Argument den vertikalen Abstand (in Punkt) von der oberen linken Ecke des Dokuments bis zum zweiten Kontrollpunkt für das neue Segment an.

X3 (Single) - Wenn die Bearbeitungsart des neuen Abschnitts MsoEditingCorner entspricht, gibt dieses Argument den horizontalen Abstand (in Punkt) von der oberen linken Ecke des Dokuments an den Endpunkt des neuen Abschnitts.

Y3 (Single) - Wenn die Bearbeitungsart des neuen Abschnitts MsoEditingCorner entspricht, gibt dieses Argument den vertikalen Abstand (in Punkt) von der oberen linken Ecke des Dokuments an den Endpunkt des neuen Abschnitts.

ConvertToShape

Erstellt eine Form mit den geometrischen Eigenschaften des angegebenen Objekts.

Sie müssen die AddNodes -Methode mindestens einmal auf ein FreeformBuilder -Objekt anwenden, bevor Sie die ConvertToShape -Methode verwenden.

ConvertToShape (Anchor)

Anchor: Ein Range -Objekt, das den Text darstellt, an den die Form gebunden ist.


Dim shpConvertToShape As Shape
Set shpConvertToShape = ActiveDocument.Background.CanvasItems.BuildFreeform.ConvertToShape()