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

[koter]

Hallo Asterix,

...so korrigieren, dass sie für alle Objekte (Umrisse, Füllungen) funktioniert?...

streng genommen nicht, denn Umrisse und Füllungen haben keine Knoten.

Ich vermute jetzt, dass Dir das völlig egal ist und Du nur Code zum Kopieren und Einfügen willst.
(Was natürlich völlig in Ordnung wäre)

Versuche es mit diesem Code:

Code:

For Each s In ActiveSelectionRange.Shapes.FindShapes(Type:=cdrCurveShape):  s.Curve.Nodes.All.Smoothen 20: Next

Liege ich mit meiner Vermutung richtig?

Gruß

Koter