FreeformBuilder.AddNodes-Methode (Publisher)

Fügt einen neuen Abschnitt am Ende der Freihandform, der erstellt wird, und fügt die Knoten, die das Segment definieren.

Verwenden Sie diese Methode so oft, wie Sie knoten zu der Freihandform hinzufügen möchten, die Sie erstellen. Wenn Sie das Hinzufügen von Knoten abgeschlossen haben, verwenden Sie die ConvertToShape-Methode , um die soeben definierte Freihandform zu erstellen.

Syntax

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

Ausdruck Eine Variable, die ein FreeformBuilder-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
SegmentType	Erforderlich	MsoSegmentType	Der Typ des hinzuzufügenden Segments. Kann msoSegmentCurve oder msoSegmentLine sein.
EditingType	Erforderlich	MsoEditingType	Der Bearbeitungstyp des neuen Knotens. Kann msoEditingAuto oder msoEditingCorner sein. Wenn SegmentType auf msoSegmentLine festgelegt ist, muss EditingType auf msoEditingAuto festgelegt sein, da ansonsten ein Fehler auftritt.
X1	Erforderlich	Variant	Wenn EditingType des neuen Segments msoEditingAuto ist, gibt dieses Argument den horizontalen Abstand zwischen der linken oberen Ecke der Seite und dem Endpunkt des neuen Segments an. Wenn EditingType des neuen Knotens msoEditingCorner ist, gibt dieses Argument den horizontalen Abstand zwischen der linken oberen Ecke der Seite und dem ersten Kontrollpunkt für das neue Segment an.
Y1	Erforderlich	Variant	Wenn EditingType des neuen Segments msoEditingAuto ist, gibt dieses Argument den vertikalen Abstand von der oberen linken Ecke der Seite zum Endpunkt des neuen Segments an. Wenn EditingType des neuen Knotens msoEditingCorner ist, gibt dieses Argument den vertikalen Abstand von der oberen linken Ecke der Seite zum ersten Kontrollpunkt für das neue Segment an.
X2	Optional	Variant	Wenn EditingType des neuen Segments msoEditingCorner ist, gibt dieses Argument den horizontalen Abstand zwischen der linken oberen Ecke der Seite und dem zweiten Kontrollpunkt für das neue Segment an. Wenn EditingType des neuen Abschnitts den Wert msoEditingAuto besitzt, geben Sie keinen Wert für dieses Argument an.
Y2	Optional	Variant	Wenn EditingType des neuen Segments msoEditingCorner ist, gibt dieses Argument den vertikalen Abstand von der oberen linken Ecke der Seite zum zweiten Kontrollpunkt für das neue Segment an. Wenn EditingType des neuen Abschnitts den Wert msoEditingAuto besitzt, geben Sie keinen Wert für dieses Argument an.
X3	Optional	Variant	Wenn editingType des neuen Segments msoEditingCorner ist, gibt dieses Argument den horizontalen Abstand zwischen der linken oberen Ecke der Seite und dem Endpunkt des neuen Segments an. Wenn EditingType des neuen Abschnitts den Wert msoEditingAuto besitzt, geben Sie keinen Wert für dieses Argument an.
Y3	Optional	Variant	Wenn EditingType des neuen Segments msoEditingAuto ist, gibt dieses Argument den vertikalen Abstand von der oberen linken Ecke der Seite zum Endpunkt des neuen Segments an. Wenn EditingType des neuen Abschnitts den Wert msoEditingAuto besitzt, geben Sie keinen Wert für dieses Argument an.

HinwBemerkungeneise

Für die Argumente X1, Y1, X2, Y2, X3 und Y3 werden numerische Werte in Punkten ausgewertet. Zeichenfolgen können in beliebigen Einheiten enthalten sein, die von Microsoft Publisher unterstützt werden (z. B. "2,5 zoll").

Verwenden Sie die Insert-Methode der ShapeNodes-Auflistung , um einer Freihandform Knoten hinzuzufügen, nachdem sie erstellt wurde.

Beispiel

In diesem Beispiel wird der ersten Seite in der aktiven Publikation eine Freihandform mit vier Scheitelpunkten hinzugefügt.

' Add a new freeform object. 
With ActiveDocument.Pages(1).Shapes _ 
 .BuildFreeform(EditingType:=msoEditingCorner, _ 
 X1:=100, Y1:=100) 
 
 ' Add three more nodes and close the polygon. 
 .AddNodes SegmentType:=msoSegmentCurve, _ 
 EditingType:=msoEditingCorner, _ 
 X1:=200, Y1:=200, X2:=225, Y2:=250, X3:=250, Y3:=200 
 .AddNodes SegmentType:=msoSegmentCurve, _ 
 EditingType:=msoEditingAuto, X1:=200, Y1:=100 
 .AddNodes SegmentType:=msoSegmentLine, _ 
 EditingType:=msoEditingAuto, X1:=150, Y1:=50 
 .AddNodes SegmentType:=msoSegmentLine, _ 
 EditingType:=msoEditingAuto, X1:=100, Y1:=100 
 
 ' Convert the polygon to a Shape object. 
 .ConvertToShape 
End With 

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.