Beiträge: 426
Themen: 96
Danke erhalten: 19 in 18 Posts
Danke gesagt: 168
Registriert seit: 17.03.2013
Hallo Koter und HaJö, danke für Eure nochmaligen Antworten, ich weiß, ich bin nervig ![Rolleyes Rolleyes](https://forum.juergens-workshops.de/images/smilies/icon_rolleyes.gif)
So ganz verstanden habe ich die Transparenz- bzw. png-Systematik anscheinend nicht.
Bevor ich allerdings weitere Schritte in CorelDraw und dann zurück nach PhotoPaint realisiere,
ist meine bisherige Vorgehensweise zwar auch umfangreich aber wahrscheinlich einfacher.
In PhotoPaint das jpg-Objekt an den effektiven Rändern ausschneiden und kopieren und dann die Kopie in Transparenz umwandeln und als png speichern.
Ich hatte mit meiner Anfrage nur gehofft, mir die Schritte über
>eng markieren
>kopieren
>Neu aus Zwischenablage
>Kombination aller Objekte mit dem Hintergrund
>Zauberstabmaske
>Subtraktiver Modus
>ggf. noch nicht gewünschte Bereiche mit shift+Zauberstab ausschließen
>als png exportieren
zu ersparen. Ein Faulenzer tut nie mehr als er muß
•
Beiträge: 1.417
Themen: 11
Danke erhalten: 264 in 224 Posts
Danke gesagt: 25
Registriert seit: 24.03.2012
Hallo Günther,
(03.10.2023, 21:37)Karthagos schrieb: ...So ganz verstanden habe ich die Transparenz- bzw. png-Systematik anscheinend nicht...
Transparenz ist Durchsichtigkeit und PNG ein Dateiformat, also eigentlich ganz einfach!
Falls Du Fragen dazu hast, stelle sie bitte möglichst konkret.
(03.10.2023, 21:37)Karthagos schrieb: Bevor ich allerdings weitere Schritte in CorelDraw und dann zurück nach PhotoPaint realisiere,
ist meine bisherige Vorgehensweise zwar auch umfangreich aber wahrscheinlich einfacher.
was HaJö meint, ginge auch in PP mit einem Schneidepfad (nicht mit der Zuschneidemaske verwechseln).
Ein Schneidepfad (clipping path) besteht aber aus Vektordaten, als PNG kann man ihn also nicht speichern.
(03.10.2023, 21:37)Karthagos schrieb: ...Ich hatte mit meiner Anfrage nur gehofft, mir die Schritte über...
...zu ersparen....
Dass es um einen Arbeitsablauf geht, war für mich bis jetzt leider nicht erkennbar.
Wenn Du ein Makro verwendest, sind es im besten Fall drei Klicks in Photopaint:
Ein ähnliches Makro habe ich Dir in diesem Beitrag zum selben Thema gehäkelt.
Falls Du Änderungen wünscht, gib Bescheid.
Gruß
Koter
•
Beiträge: 426
Themen: 96
Danke erhalten: 19 in 18 Posts
Danke gesagt: 168
Registriert seit: 17.03.2013
Hallo Koter, danke für Deine ausführliche Antwort und Mühe,
dass ich die Transparenz-Systematik nicht ganz verstanden habe, war jetzt mehr rhetorisch gemeint. Hätte ich besser weggelassen
Ich komme direkt zu dem Punkt mit Deinem Makro. Bei meiner Version wird das Bild nur als png gespeichert oder habe ich da was nicht gerafft? Bei Deinem GIF wird es anscheinend ohne die Ränder beschnitten und dann gespeichert, genau das, was ich ja möchte?
Habe das Makro mal als txt-Datei beigefügt, vielleicht kannst Du bei Gelegenheit mal schauen?
als png speichern Makro.txt (Größe: 761 Bytes / Downloads: 0)
•
Beiträge: 1.417
Themen: 11
Danke erhalten: 264 in 224 Posts
Danke gesagt: 25
Registriert seit: 24.03.2012
Hallo Günther,
ich weiß nicht, wonach ich schauen sollte.
Wenn Du lieber das Makro aus Beitrag 12 benutzen willst, hier der Code:
Code: Sub PNGExport()
Dim fso As Object
Dim D As Document, DNeu As Document
Dim L1 As Layer
Dim dn As String, DName As String, DPfad As String, DNeuDN As String
Dim EF As ExportFilter
Set fso = CreateObject("Scripting.FileSystemObject")
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)
L1.Copy
L1.Delete
Set DNeu = CreateDocumentFromClipboard
If fso.FileExists(D.FullFileName) Then
DName = Left(D.FileName, Len(D.FileName) - 3) & "png"
DPfad = D.FilePath
DNeuDN = DPfad & DName
Else
If fso.FolderExists(Environ$("USERPROFILE") & "\Pictures") Then
DPfad = Environ$("USERPROFILE") & "\Pictures\"
DName = "Neu-" & Replace(Date, ".", "") & "" & Replace(Time, ":", "") & ".png"
DNeuDN = DPfad & DName
dn = CorelScriptTools.GetFileBox("PNG (*.png)|*.png", "Datei Speichern", 1, DName, ".png", DPfad)
If Trim(dn) = "" Then
DNeu.Dirty = False
DNeu.Close
Exit Sub
End If
End If
End If
Set EF = DNeu.SaveAs(DNeuDN, cdrPNG)
EF.Finish
D.Dirty = False
D.Close
Set fso = Nothing
End Sub
Gruß
Koter
•
Beiträge: 426
Themen: 96
Danke erhalten: 19 in 18 Posts
Danke gesagt: 168
Registriert seit: 17.03.2013
Hallo Koter,
habe die jpg-Datei geöffnet, Zauberstab ausgeführt und dann das Makro
Leider kommt bei mir eine Fehlermeldung
•
Beiträge: 426
Themen: 96
Danke erhalten: 19 in 18 Posts
Danke gesagt: 168
Registriert seit: 17.03.2013
Hallo Koter,
falscher Alarm, Makro funktioniert ![Daumenhoch Daumenhoch](https://forum.juergens-workshops.de/images/smilies/daumen.gif) , hatte beim Kopieren nicht alles erwischt
•
Beiträge: 426
Themen: 96
Danke erhalten: 19 in 18 Posts
Danke gesagt: 168
Registriert seit: 17.03.2013
05.10.2023, 16:08
(Dieser Beitrag wurde zuletzt bearbeitet: 05.10.2023, 16:11 von Karthagos.)
Hallo Koter,
kannst Du an Dein Makro das png-speicher-Dialog-Makro (txt-Datei-Anhang aus Beitrag 13) direkt anhängen?
Wenn ich es auszuführen will, kommt die Meldung "Bitte zuerst eine Maske erstellen!".
Ich müsste also erst "Alle Objekte mit dem Hintergrund kombinieren" und den Zauberstab wieder ausführen, damit es funktioniert.
•
Beiträge: 1.417
Themen: 11
Danke erhalten: 264 in 224 Posts
Danke gesagt: 25
Registriert seit: 24.03.2012
Hallo Günther,
(05.10.2023, 16:08)Karthagos schrieb: Wenn ich es auszuführen will, kommt die Meldung "Bitte zuerst eine Maske erstellen!".
Ich müsste also erst "Alle Objekte mit dem Hintergrund kombinieren" und den Zauberstab wieder ausführen, damit es funktioniert.
welche Objekte willst Du mit dem Hintergrund kombinieren? Wenn Du ein JPG öffnest, gibt es nur den Hintergrund, keine Objekte!
Gruß
Koter
•
Beiträge: 426
Themen: 96
Danke erhalten: 19 in 18 Posts
Danke gesagt: 168
Registriert seit: 17.03.2013
Hallo Koter,
wenn ich Dein Makro ausgeführt habe, kommt diese Maske mit der Transparenz und den 8 Punkten
Mit Objekt meine ich eben den freigestellten Käfer.
Ich kombiniere also " Alle Objekte mit dem Hintergrund"
und führe anschließend den Zauberstab aus. Dann ist der Käfer wieder mit der umlaufenden Ameisenmaske versehen
und ich kann das Speichermakro png ausführen.
Kannst Du diese beiden Aktionen und dann das Speichermakro an Dein Makro anhängen?
•
Beiträge: 1.417
Themen: 11
Danke erhalten: 264 in 224 Posts
Danke gesagt: 25
Registriert seit: 24.03.2012
Hallo Günther,
(05.10.2023, 16:36)Karthagos schrieb: wenn ich Dein Makro ausgeführt habe, kommt diese Maske mit der Transparenz und den 8 Punkten
Das ist das fertige PNG mit einem Objekt ohne Hintergrund. Eine Maske sehe ich nicht.
Der Ablauf ist einfach:
- JPG öffnen
- Maske erstellen
- Makro ausführen
Fertig!
Wie in der Animation!
Du musst Masken und Objekte unterscheiden.
Gruß
Koter
•
|