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

[asterix]

vielen Dank nochmals!
So klappt es nun (nur der relevante Absatz mit meinen Einfügungen hier)

Code:

ActivePage.SelectableShapes.All.CreateSelection
      ActiveSelection.Outline.SetProperties Color:=CreateRGBColor(0, 0, 0)
      ActiveSelection.Outline.SetProperties Width:=0
      ActiveSelection.Fill.ApplyUniformFill CreateRGBColor(0, 0, 0)
      For Each sl In ActiveSelection.Shapes: sl.Curve.Nodes.All.Smoothen 20
      Next

Wie erwähnt ist so ein Smoothen 20 eigentlich schon sehr gut. Und es unterscheidet sich auch hier von dem von CorelDraw in der Symbolleiste angebotenen "Kurvenglättung", wenn man 20 auswählt. Das im Makro gefällt mir derzeit besser.

Das mit dem AutoReduceNode habe ich versucht, hat aber kein Ergebnis gebracht (nicht funktioniert). Im Internet fand ich dazu auch nichts.

Hätte ich noch etwas beim Code hier anders machen sollen?
Zu PrecisionMargin fand ich auch keine Informationen und dachte, es wäre so korrekt .

Code:

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