Automatische Bildbearbeitung

[koter]

Hallo Uli,

willkommen im Forum!

X8 habe ich nicht, aber vielleicht läuft das folgende X7-Makro bei Dir.
Das Makro braucht eine Maske, den ersten Arbeitschritt musst Du also noch selbst erledigen:



Wenn die Abmessungen der Ausgangsbilder alle ungefähr gleich sind, könnte man vielleicht auch den ersten Schritt automatisieren.
Du solltest aber erst einmal testen, ob das Makro mit X8 funktioniert:

Code:

Sub start()
    Dim D1 As Document, D2 As Document
    Set D1 = ActiveDocument
    If D1.Mask.IsEmpty Then
        MsgBox "Keine Maske vorhanden!", vbCritical, "Fehler"
        Exit Sub
    End If
    D1.Background.Copy
    Set D2 = Application.CreateDocumentFromClipboard
    D2.Layers.Merge
    CorelScript.MaskMagicWand 10, 10, 2, True, True, 0, 15
    With D2
        .Mask.Smooth 5
        .Mask.Feather 2
        .CropToMask
        .Layers.Add "Münze", , pntMergeDifference, pntCutSelection
        .Background.Delete
    End With
End Sub

Gruß

Koter