Umrisslinie vektorisierte Grafik

[Nachtviole]

Hallo lex2k6!

So etwas kann man gut von einem Makro erledigen lassen. Ich habe mal eine CorelDraw x3 –Datei erstellt welche ein einfaches Makro enthält was das kann. Öffne die Datei, ev. kommt eine Warnmeldung das ein Makro enthalten ist, dann müßtest Du auf „Makro aktivieren“ gehen sonst geht’s nicht (das Rechteck in der Datei kannst Du löschen). Kopiere nun Deinen Flickenteppich dort hinein, versehe alle Objekte mit einem Umriß z.B. Haarlinie schwarz, löse über „Anordnen / Gruppierung auflösen“ die Gruppe auf und markiere alle Objekte.
Nun gehe auf „Extra / VisualBasic / Abspielen“ woraufhin sich ein Dialog öffnet.



Wähle dort bei „Makros in:“ – „VBAProjekt (Macro)“ aus, da nur ein Makro „umriss.Macro1“ vorhanden ist, ist dieses schon ausgewählt und klicke auf „Ausführen“. Nun brauchst Du etwas Geduld denn das Makro arbeitet jedes Objekt ab. Wenn das Skript fertig ist haben alle Umrisse die Farbe der (einfarbigen) Füllung, Du kannst bei Bedarf die Linienstärke noch erhöhen, aber ich denke Haarlinie reicht aus.
Das Makro habe ich für X3 erstellt und hoffe, daß es auch unter X4 funktioniert. Unten habe ich mal den Code des Makros eingefügt.

Viele Grüße von der Nachtviole!

Code:

Sub Macro1()
Dim Auswahl As ShapeRange

Set Auswahl = ActiveSelectionRange
For i = 1 To Auswahl.Count
    If Auswahl(i).Outline.Type > cdrNoOutline And Auswahl(i).Fill.Type = cdrUniformFill Then
        Auswahl(i).Outline.Color = Auswahl(i).Fill.UniformColor
    End If
Next i
End Sub