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

[koter]

Hallo Asterix,

Vielleicht geht das aber auch nicht, weil Knoten reduzieren, Kurven glätten und Farbe oder Umrissdicke zuordnen immer nur bestimmten Objekten zugeordnet werden kann.

Richtig, das geht so nicht.

Die Methode „Knoten reduzieren“ (AutoReduce) ist eine Methode (keine Funktion) des Objekts „NodeRange“.
Du musst sie in einer Schleife bei jedem der Objekte in der Auswahl ausführen:
(Nicht zuweisen, man kann Eigenschaften oder Variablen einen Wert Zuweisen, Methoden werden ausgeführt.)

Code:

Sub KnotenRed()
   ActivePage.SelectableShapes.All.CreateSelection
   For Each s In ActiveSelection.Shapes
       s.Curve.Nodes.All.AutoReduce 0.5
   Next
End Sub

Sollten sich in der Auswahl Objekte befinden, die keine Kurve (das übergeordnete Objekt von NodeRange) haben, kommt es zu einer Fehlermeldung. Rechtecke oder Text wären z.B. solche Objekte.

Gruß

Koter