Makro-Nachhilfe für Funktionen für alle Objekte

[asterix]

Hi Koter,

ich habe den Wert auf 0.01 gesetzt (0.1 ändert schon zu stark).

Code:

Sub KnotenRed()
   
   For Each s In ActiveSelection.Shapes
       s.Curve.Nodes.All.AutoReduce 0.01
   Next
End Sub

Aber das AutoReduce ändert nicht die Knotentypen, das "Knoten reduzieren" von CorelDraw aber schon.