Hallo Asterix,
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:
Liege ich mit meiner Vermutung richtig?
Gruß
Koter
(02.07.2024, 19:30)asterix schrieb: ...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