Grafik mit transparentem Hintergrund erstellen

[koter]

Hallo Günther,

Wenn Du die Grafik mit Vektoren erstellst würde ich CorelDraw nehmen.
Der PNG-Export funktioniert gut und es kommen keine seltsamen Fragen:



Gruß

Koter

[Karthagos]

Hallo Koter,

danke für Deine Nachricht.
Verständnisfrage; normalerweise habe ich ein Bitmap, meist .jpg oder .bmp, bei dem ich den Hintergrund entfernen will.
Da nutzt mir doch CorelDraw nichts, oder?

[koter]

Hallo Günther,

Nein zum Entfernen von Bitmap-Bestandteilen taugt CorelDraw nicht.
Weil diese Grafik nur aus einfachen Flächen besteht, habe ich angenommen, dass Du sie als Vektorgrafik erstellt hast.

Bei Deinem Beispiel würde nachzeichnen mit CD vielleicht schneller gehen.
(ich habe sie in drei Minuten nachgezeichnet.)

Gruß

Koter

[Karthagos]

Hallo Norre,

das sollte damals auch nur als einfaches Beispiel dienen, normalerweise sind es schon filigranere Vorlagen.
Aber bis auf die eine Meldung die mich störte klappt es ja in PP auch sehr gut.
Ich sehe EDV immer noch als Instrument, um komplexe Vorgänge zu erleichtern und mit möglichst wenig Klicks zum Ziel zu kommen. Da stören mich solche Meldungen, egal in welchem Programm, einfach.
Mein Wahlspruch: "Ein Faulenzer tut nie mehr als er muss" 

[Karthagos]

Hallo,

habe mir noch mal Gedanken zum Ablauf gemacht. Wenn ich

• jpg-Datei öffne, Auswahl anklicke, Zauberstabmaske gewünschte Toleranz eingebe, 
  
• in Farbpalette gewünschte Farbe auswähle und Entf drücke, 
  

habe ich das Bild mit den umlaufenden Markierungsrahmen und der Transparenz

   

Jetzt

• Speichern unter, png auswählen, Namen vergeben, Speichern drücken, 
  
• bei der nächsten Meldung "Abgeflacht speichern" wählen und Original-jpg-Datei schließen
  

Hallo Koter, Du hattest mir für das direkte Speichern einer Grafik als jpg ein Makro geschrieben. Vielleicht liest Du das hier zufällig mit und kannst mir das auch für die Folge nach dem Bild, also ab Speichern unter erstellen (wenn das überhaupt geht), wäre sehr nett 

[koter]

Hallo Günther,

ich hoffe ich habe es richtig kapiert und dass das Makro mit Deiner Version kompatibel ist:



Du musst eine Maske erstellen und dann das Makro ausführen.

Ich habe nur das JPG-Makro etwas angepasst:

Code:

Sub PNGExport()
   Dim D As Document
   Dim L1 As Layer
   Dim dn As String, DName As String, DPfad As String
   Dim EF As ExportFilter
   
   Set D = ActiveDocument
   If ActiveDocument.Mask.IsEmpty Then
       MsgBox "Bitte zuerst eine Maske erstellen !", vbCritical, "Fehlende Maske"
       Exit Sub
   End If
   
   Set L1 = ActiveDocument.Layers.Add("Rest", , , pntCopySelection)
   ActiveDocument.Background.Delete
   
   DName = Left(ActiveDocument.FileName, Len(ActiveDocument.FileName) - 3) & "png"
   DPfad = ActiveDocument.FilePath
   dn = CorelScriptTools.GetFileBox("PNG (*.png)|*.png", "Datei Speichern", 1, "Neu", ".png", DPfad)
   
   If Trim(dn) = "" Then Exit Sub
   
   Set EF = D.SaveAs(dn, cdrPNG)
   EF.Finish
   
End Sub

Melde Dich, wenn ich etwas falsch verstanden habe oder es nicht klappt.


Gruß

Koter

[Karthagos]

Hallo Koter,
 
danke für Deine prompte Rückmeldung. Ich glaube ich habe bei der Beschreibung der Schritte den Punkt "Objekt erstellen aus Hintergrund" vergessen.
 

• jpg-Datei öffnen, Auswahl anklicken, Objekt erstellen aus Hintergrund, Zauberstabmaske gewünschte Toleranz eingeben 
  
• in Farbpalette gewünschte Farbe auswählen und Entf drücken
  

 
Dann haben die einzelnen Teile des Käfers diese umlaufende Ameisenlinie und der Hintergrund die Transparentkaros, aber das Maske erstellen habe ich nicht hinbekommen.
 
Du hast es auf Deine Art im Video zwar schön dokumentiert aber ich kann es nicht ganz nachvollziehen.
 

[koter]

Hallo Günther,

ich habe gedacht, dass Du nur die weiße Fläche im JPG in eine transparente Fläche in der PNG umwandeln willst.
Sollte das nicht Dein Ziel gewesen sein, habe ich es tatsächlich nicht kapiert.

Hier noch einmal in „Standbildern“, was das Video zeigt:




Nach dem ich das JPG geöffnet habe, habe ich:

1. den subtraktiven Modus bei der Zauberstabmaske ausgewählt
   
2. auf die weiße Fläche geklickt und damit die Maske erzeugt (die „umlaufende Ameisenlinie“)
   
3. das Makro ausgeführt
   

Das Makro hat die weiße Fläche entfernt und das Ergebnis als PNG gespeichert.



Gruß

Koter

[Karthagos]

Guten Morgen Koter,

jetzt habe ich es verstanden, das klappt perfekt und ist im Vorlauf noch einfacher als meine bisherige Vorgehensweise.
Du hast mir wieder sehr geholfen, vielen lieben Dank.

Jedes mal, wenn ich eines Deiner hilfreichen Makros ausführe, denke ich in Dankbarkeit an Dich