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.
Fügt am Ende der Freihandform, die gerade erstellt wird, ein neues Segment ein und fügt die Knoten hinzu, die das Segment definieren.
Syntax
Ausdruck. AddNodes (SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)
expression Erforderlich. Eine Variable, die ein "FreeformBuilder"-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| SegmentType | Erforderlich | MsoSegmentType | Der Typ des hinzuzufügenden Segments. |
| EditingType | Erforderlich | MsoEditingType | Die Bearbeitungseigenschaft des Scheitelpunkts. Wenn SegmentType MsoSegmentLine lautet, muss EditingType MsoEditingAuto sein. |
| X1 | Erforderlich | 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. Wenn die Bearbeitungsart des neuen Knotens MsoEditingCorner entspricht, gibt dieses Argument den horizontalen Abstand (in Punkt) von der oberen linken Ecke des Dokuments bis zum ersten Kontrollpunkt für das neue Segment an. |
| Y1 | Erforderlich | 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. Wenn die Bearbeitungsart des neuen Knotens MsoEditingCorner entspricht, gibt dieses Argument den vertikalen Abstand (in Punkt) von der oberen linken Ecke des Dokuments bis zum ersten Kontrollpunkt für das neue Segment an. |
| X2 | Optional | 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. Wenn die Bearbeitungsart des neuen Abschnitts MsoEditingAuto entspricht, geben Sie keinen Wert für dieses Argument an. |
| Y2 | Optional | 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. Wenn die Bearbeitungsart des neuen Abschnitts MsoEditingAuto entspricht, geben Sie keinen Wert für dieses Argument an. |
| X3 | Optional | 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. Wenn die Bearbeitungsart des neuen Abschnitts MsoEditingAuto entspricht, geben Sie keinen Wert für dieses Argument an. |
| Y3 | Optional | 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. Wenn die Bearbeitungsart des neuen Abschnitts MsoEditingAuto entspricht, geben Sie keinen Wert für dieses Argument an. |
Hinweise
Verwenden Sie diese Methode so oft, wie Sie knoten zu der Freihandform hinzufügen möchten, die Sie erstellen. Wenn Sie alle Knoten hinzugefügt haben, verwenden Sie die ConvertToShape -Methode die Freihandform erstellen, die Sie soeben definiert haben. Wenn Sie einer bereits erstellten Freihandform Knoten hinzufügen möchten, verwenden Sie die Insert-Methode der ShapeNodes-Auflistung.
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.