FreeformBuilder.AddNodes-Methode (Excel)

Artikel
04/07/2023

Fügt einen Punkt in der aktuellen Form hinzu und zeichnet dann eine Linie vom aktuellen Knoten bis zum letzten hinzugefügten Knoten.

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.
EditingType	Erforderlich	MsoEditingType	Die Bearbeitungseigenschaft des Scheitelpunkts.
X1	Erforderlich	Single	Wenn editingType des neuen Segments msoEditingAuto ist, gibt dieses Argument den horizontalen Abstand (in Punkt) von der oberen linken Ecke des Dokuments zum Endpunkt des neuen Segments an. Wenn EditingType des neuen Knotens msoEditingCorner ist, gibt dieses Argument den horizontalen Abstand (in Punkt) von der oberen linken Ecke des Dokuments zum ersten Kontrollpunkt für das neue Segment an.
Y1	Erforderlich	Single	Wenn EditingType des neuen Segments den Wert msoEditingAuto besitzt, gibt dieses Argument die horizontale Entfernung (in Punkt) von der oberen linken Ecke des Dokuments zum Endpunkt des neuen Segments an. Wenn EditingType des neuen Knotens msoEditingCorner ist, gibt dieses Argument den horizontalen Abstand (in Punkt) von der oberen linken Ecke des Dokuments 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 (in Punkt) von der linken oberen Ecke des Dokuments 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.
Y2	Optional	Variant	Wenn EditingType des neuen Segments msoEditingCorner ist, gibt dieses Argument den horizontalen Abstand (in Punkt) von der linken oberen Ecke des Dokuments 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 (in Punkt) von der linken oberen Ecke des Dokuments 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.
Y3	Optional	Variant	Wenn EditingType des neuen Segments msoEditingCorner ist, gibt dieses Argument den horizontalen Abstand (in Punkt) von der linken oberen Ecke des Dokuments 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.

HinwBemerkungeneise

MsoEditingType darf nicht msoEditingSmooth oder msoEditingSymmetric sein. Wenn SegmentTypemsoSegmentLine ist, muss EditingTypemsoEditingAuto sein.

Beispiel

In diesem Beispiel wird ein Freihandobjekt mit vier Segmenten in myDocument eingefügt.

Set myDocument = Worksheets(1) 
With myDocument.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

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.