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.
Stellt die Geometrie einer Freihandform dar, während sie konstruiert wird.
Hinweise
Verwenden Sie die BuildFreeform -Methode des Shapes Auflistung, um ein FreeformBuilder -Objekt zurückzugeben.
Verwenden Sie die AddNodes Methode, um die Freihandform Knoten hinzuzufügen. Verwenden Sie die ConvertToShape-Methode, um die im FreeformBuilder-Objekt definierte Form zu erstellen und der Shapes-Auflistung hinzuzufügen.
Beispiel
Im folgenden Beispiel wird im aktiven Dokument eine Freihandform mit vier Segmenten hinzugefügt.
Sub CreateNewFreeFormShape()
With ActiveDocument.Pages(1).Shapes.BuildFreeform( _
EditingType:=msoEditingCorner, X1:=360, Y1:=200)
.AddNodes SegmentType:=msoSegmentCurve, _
EditingType:=msoEditingCorner, X1:=380, Y1:=230, _
X2:=400, Y2:=250, X3:=450, Y3:=300
.AddNodes SegmentType:=msoSegmentCurve, _
EditingType:=msoEditingAuto, X1:=480, Y1:=200
.AddNodes SegmentType:=msoSegmentLine, _
EditingType:=msoEditingAuto, X1:=480, Y1:=400
.AddNodes SegmentType:=msoSegmentLine, _
EditingType:=msoEditingAuto, X1:=360, Y1:=200
.ConvertToShape
End With
End Sub
Methoden
Eigenschaften
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.