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()