ShapeNodes.Insert-Methode (Excel)

Fügt einen Knoten in eine Freihandform ein.

Syntax

Ausdruck. Einfügen (Index, SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)

Ausdruck Eine Variable, die ein ShapeNodes-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Index	Erforderlich	Integer	Long. Die Nummer des Formknotens, hinter dem ein neuer Knoten eingefügt werden soll.
SegmentType	Erforderlich	MsoSegmentType	Der Segmenttyp.
EditingType	Erforderlich	MsoEditingType	Der Bearbeitungstyp.
X1	Erforderlich	Single	Wenn EditingType des neuen Segments msoEditingAuto ist, gibt dieses Argument den horizontalen Abstand in Punkt von der linken oberen Ecke des Dokuments zum Endpunkt des neuen Segments an. Wenn EditingType des neuen Knotens den Wert msoEditingCorner besitzt, gibt dieses Argument die horizontale Entfernung (gemessen in Punkt) von der oberen linken Ecke des Dokuments zum ersten Steuerpunkt des neuen Abschnitts an.
Y1	Erforderlich	Single	Wenn editingType des neuen Segments msoEditingAuto ist, gibt dieses Argument den vertikalen Abstand (gemessen in Punkt) von der linken oberen Ecke des Dokuments bis zum Endpunkt des neuen Segments an. Wenn EditingType des neuen Knotens den Wert msoEditingCorner besitzt, gibt dieses Argument die vertikale Entfernung (gemessen in Punkt) von der oberen linken Ecke des Dokuments zum ersten Steuerpunkt des neuen Abschnitts an.
X2	Erforderlich	Single	Wenn EditingType des neuen Segments msoEditingCorner ist, gibt dieses Argument den horizontalen Abstand (gemessen 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	Erforderlich	Single	Wenn EditingType des neuen Segments msoEditingCorner ist, gibt dieses Argument den vertikalen Abstand (gemessen 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	Erforderlich	Single	Wenn editingType des neuen Segments msoEditingCorner ist, gibt dieses Argument den horizontalen Abstand in Punkt von der linken oberen Ecke des Dokuments zum Endpunkt des neuen Segments an. Wenn EditingType des neuen Abschnitts den Wert msoEditingAuto besitzt, geben Sie keinen Wert für dieses Argument an.
Y3	Erforderlich	Single	Wenn editingType des neuen Segments msoEditingCorner ist, gibt dieses Argument den vertikalen Abstand (gemessen in Punkt) von der oberen linken Ecke des Dokuments zum Endpunkt des neuen Segments an. Wenn EditingType des neuen Abschnitts den Wert msoEditingAuto besitzt, geben Sie keinen Wert für dieses Argument an.

Beispiel

In diesem Beispiel wird die dritte Form im aktiven Dokument markiert, überprüft, ob es sich bei der Form um ein Freeform-Objekt handelt, und ein Knoten eingefügt. In diesem Beispiel wird angenommen, dass auf dem aktiven Arbeitsblatt drei Formen vorhanden sind.

Sub InsertShapeNode() 
    ActiveSheet.Shapes(3).Select 
    With Selection.ShapeRange 
        If .Type = msoFreeform Then 
            .Nodes.Insert _ 
                Index:=3, SegmentType:=msoSegmentCurve, _ 
                EditingType:=msoEditingSymmetric, X1:=35, Y1:=100 
            .Fill.ForeColor.RGB = RGB(0, 0, 200) 
            .Fill.Visible = msoTrue 
        Else 
            MsgBox "This shape is not a Freeform object." 
        End If 
    End With 
End Sub

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.