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

[asterix]

...und wieder muss ich aufgrund der Lernkurve etwas direkt wieder abhaken .

Also, das hat nun auch geklappt, ich musste nur vorher die Gruppe / Kombination auflösen.
Es scheint ja auch so zu sein, dass diese erwähnte Zeile zum Smoothing auch für beides gilt, zumindest ging sie nun auch gut für die aus Umrissen konvertierten Objekte. 

Habe auch die Änderung der Objekte dann weiter nach unten gestellt.

Code:

Sub opencopy()
    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 impflt As ImportFilter
    Set impflt = lr1.ImportEx("C:\objekt.ai", 1283, impopt)
    impflt.Finish
    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
      Clipboard.Clear
      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)
ActivePage.Shapes.All.CreateSelection   
ActiveSelection.Outline.SetProperties Color:=CreateRGBColor(0, 0, 0)
      ActiveSelection.Outline.SetProperties Width:=0
      ActiveSelection.Fill.ApplyUniformFill CreateRGBColor(0, 0, 0)
      ActivePage.SelectableShapes.All.CreateSelection
      ActivePage.Shapes.All.CreateSelection
    Set grp1 = ActiveSelection.UngroupAllEx
    ActiveSelection.BreakApartEx
    For Each s In ActiveSelection.Shapes: s.Curve.Nodes.All.Smoothen 10
      Next
End Sub

Also doch alle Fragen geklärt .
Wenn ich doch irgendwann eine Makro-Herausforderung haben werde, eröffne ich in jedem Fall ein neues Thema!

Danke nochmals, Koter, der große Nutzen für mich in diesem Thema war einfach, dass ich Objekte in CorelDraw reinkopieren wollte und diese dann automatisiert direkt bearbeiten. Daher die Sache mit dem "für alle Objekte". Denn es geht auch einfach um alle Objekte, die man einfach nur ein bisschen anpassen möchte nach dem Einfügen.