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

[asterix]

Hier nochmal mein leider schlechter Versuch eines Makros .

Ich habe aufgenommen, wie ein *.ai geöffnet wird, möchte da einige Änderungen vornehmen und es dann ins aktuelle Dokument (egal welches) einfügen. Es klappt schon fast vollständig.

(Also das mit dem doppelten Einfügen hat sich immerhin erledigt, ich habe einmal die Datei mit Pfad im Code entfernt. So geht es nun.)


Aber die hier neu gelernten Zeilen kann ich natürlich nicht immer einfach so einfügen . Es gibt einen Fehler "Typ nicht korrekt" bei dem Smoothing. Das RGB-Färben und Kontur auf 0 geht aber.

Bleiben am Ende des Tages also doch wieder nur zwei Fragen:
- wie kann ich das mit dem Smoothing hier im Code korrigieren?
- steht hinter der Schaltfläche "Knoten reduzieren" nur Autoreduce oder mehr?

Code:

Sub opencopy()
    ' Recorded 30.06.2024
    Dim lr1 As Layer
    Set lr1 = ActiveDocument.Pages(1).CreateLayer("Ebene 1")
    ' Recording of this command is not supported
    Dim impopt As StructImportOptions
    Set impopt = CreateStructImportOptions
    impopt.MaintainLayers = True
    
    Dim s1 As Shape
    Set s1 = ActiveShape
    Dim grp1 As ShapeRange
    Set grp1 = ActiveSelection.UngroupEx
    Dim openopt As StructOpenOptions
    Set openopt = CreateStructOpenOptions
    With openopt.ColorConversionOptions
        .SourceColorProfileList = "sRGB IEC61966-2.1,ISO Coated v2 300% (ECI),Dot Gain 15%"
        .TargetColorProfileList = "sRGB IEC61966-2.1,ISO Coated v2 300% (ECI),Dot Gain 15%"
    End With
    Dim doc1 As Document
    Set doc1 = OpenDocumentEx("C:\objekt.ai", openopt)


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


    grp1.Copy
    doc1.Close
    Dim pasteopt As StructPasteOptions
    Set pasteopt = CreateStructPasteOptions
    With pasteopt.ColorConversionOptions
        .SourceColorProfileList = "sRGB IEC61966-2.1,ISO Coated v2 300% (ECI),Dot Gain 15%"
        .TargetColorProfileList = "sRGB IEC61966-2.1,ISO Coated v2 300% (ECI),Dot Gain 15%"
    End With
    Dim Paste1 As ShapeRange
    Set Paste1 = ActiveDocument.Pages(1).Layers("Ebene 1").PasteEx(pasteopt)
End Sub

(ich habe die neu eingefügten Zeilen hier nochmal etwas abgesetzt / hervorgehoben, einfärben geht im Code hier nicht)