Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Erstellt ein Freihandform-Objekt.
Syntax
Ausdruck.
BuildFreeform( _EditingType_ , _X1_ , _Y1_ )
expression Erforderlich. Eine Variable, die ein Shapes-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| EditingType | Erforderlich | MsoEditingType | Die Bearbeitungseigenschaft des ersten Knotens. |
| X1 | Erforderlich | Single | Die in Punkt gemessene Position des ersten Knotens in der Freihandform-Zeichnung relativ zum linken Rand des Dokuments. |
| Y1 | Erforderlich | Single | Die in Punkt gemessene Position des ersten Knotens in der Freihandform-Zeichnung relativ zum oberen Rand des Dokuments. |
Rückgabewert
Hinweise
Verwenden Sie die AddNodes -Methode, um das Freihandobjekt Segmente hinzuzufügen. Nachdem Sie der Freihandform mindestens ein Segment hinzugefügt haben, können Sie die ConvertToShape-Methode verwenden, um das FreeformBuilder-Objekt in ein Shape-Objekt mit der geometrischen Beschreibung zu konvertieren, die Sie im FreeformBuilder-Objekt definiert haben.
Beispiel
In diesem Beispiel wird dem aktiven Dokument eine Freihandform mit fünf Scheitelpunkten hinzugefügt.
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
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.