Sub Test() Dim i As Long For i = 1 To ActiveShape.Curve.Nodes.Count ActiveShape.Curve.Nodes(i).Type = cdrCuspNode Next iEnd SubSub Test() Dim n As Node For Each n In ActiveShape.Curve.Nodes n.Type = cdrCuspNode Next nEnd Sub