In diesem Beispiel wird in myDocument nach dem vierten Knoten in der dritten Form ein Übergangsknoten mit einem gekrümmten Abschnitt eingefügt. Bei der dritten Form muss es sich um eine Freihandzeichnung mit mindestens vier Knoten handeln.
Set myDocument = Worksheets(1) With myDocument.Shapes(3).Nodes .Insert 4, msoSegmentCurve, msoEditingSmooth, 210, 100 End With