+- Juergens-Workshops.de Forum (https://forum.juergens-workshops.de)
+-- Forum: Corel Grafik Forum (https://forum.juergens-workshops.de/forumdisplay.php?fid=65)
+--- Forum: Corel Photo Paint (https://forum.juergens-workshops.de/forumdisplay.php?fid=94)
+--- Thema: Makro in PhotoPaint (/showthread.php?tid=37965)
Seiten:
1
2
Makro in PhotoPaint - Karthagos - 22.09.2019
es kommt oft vor, dass ich in PhotoPaint ein Teilbild kopiere und über den Befehl "Neu aus Zwischenablage" als neues Dokument einfüge, hat dann die Endung .cpt
[attachment=20863]
Um das neue Dokument zu speichern muss ich den Befehl "Kombiniere mit Hintergrund" aufrufen, dann kann ich speichern.
[attachment=20864]
Jetzt will ich noch von Dateiendung .cpt auf .jpg umstellen.
[attachment=20865]
Kann mir jemand mit einem Makro helfen:
- Kombiniere mit Hintergrund
- Speichern unter
- und die Dateiendung auf .jpg umstellen, sodass ich nur noch den gewünschten Dateinamen eingeben muss?
RE: Makro in PhotoPaint - norre - 22.09.2019
Hallo,
zum Macro habe ich nichts, aber....
wenn du ein Objekt hast brauchst du nur das Objekt auf die Dateileiste ziehen und erhältst so eine neue Datei.
Der Weg über die Zwischenablage entfällt dann.
[attachment=20866]
Schönen Sonntag
Norre
RE: Makro in PhotoPaint - Karthagos - 22.09.2019
Hallo Norre,
zunächst Danke für Deine Antwort. In meinem workflow komme ich nicht auf Objekt markieren:
hier habe ich eine Vorlage
[attachment=20867]
nun ziehe ich mit dem Hilfsmittel Rechteckmaske einen Rahmen,
[attachment=20868]
kopiere den markierten Bereich und füge ihn über „Neu aus Zwischenablage“ein
[attachment=20869]
Dann habe ich eine neue Datei und die Schaltfläche "Kombiniert alle Objekte mit Hintergrund" ist noch aktiv. Wo mache ich den Gedanken- oder Bearbeitungsfehler?
RE: Makro in PhotoPaint - norre - 22.09.2019
Ah....mein Fehler....... ich habe gedacht dass du von einem Objekt ausgehst bzw. aus deiner Maske eins erstellst
Gruß
Norre
RE: Makro in PhotoPaint - Karthagos - 22.09.2019
Hallo Norre,
trotzdem Danke, wieder was gelernt
RE: Makro in PhotoPaint - koter - 23.09.2019
Hallo Günther,
probiere es mit dem folgenden Makro:
Code:
Sub JPGneuAusAuswahl()
Dim L As Layer
Dim ND As Document
Dim DN As String
Dim EF As ExportFilter
If ActiveDocument.Mask.IsEmpty Then
MsgBox "Keine Maske!", vbCritical, "Fehler"
Exit Sub
End If
DN = Left(ActiveDocument.FullFileName, Len(ActiveDocument.FullFileName) - 3) & "jpg"
Set L = ActiveDocument.Layers.Add("JPG", , , pntCopySelection)
L.Cut
Set ND = Application.CreateDocumentFromClipboard
ND.Layers.Merge
DN = InputBox("Dateiname", "JPG Speichern", DN)
Set EF = ND.SaveAs(DN, cdrJPEG)
EF.Finish
End SubErst eine Maske erstellen und dann das Makro starten.
Du kannst aber eine Auswahl auch als JPG exportieren (ohne Makro).
Gruß
Koter
RE: Makro in PhotoPaint - Karthagos - 24.09.2019
Hallo Koter,
danke auch für dieses Makro, großes Kompliment! Ich gehe wie folgt vor:
Maske erstellen
[attachment=20877]
Makro ausführen
[attachment=20878]
Soweit ist es in Ordnung, lediglich der Abschlussspeicherdialog ist etwas umständlich weil ich Dateinamen und gewünschten Pfad eingeben muß. Schöner wäre es wenn ich diesen Speicherdialog mit voreingestelltem Dateityp .jpg hätte.
[attachment=20879]
Mit dem Exportdialog habe ich das Problem, wenn ich das Bild aus welchen Gründen auch immer kopiere und wieder einfüge, ist es eine .cpt. Wenn ich dann exportiere, habe ich das Problem, die Kombinieren Funktion ist aktiv, wenn ich die nicht anwähle, kommt auch beim Exportieren diese Meldung.
[attachment=20880]
Die habe ich bei Deinem Makro nicht.
Gruß Günther
RE: Makro in PhotoPaint - norre - 24.09.2019
Hallo Günther,
weil ich gerade da bin.
Das JPG Format kann sowieso keine Ebenen bzw Vektorobjekte enthalten, deshalb ist die Warnmeldung in 2019 beim JPG eigentlich überflüssig.
Vielleicht denken die sich bei Corel...... lieber doppelte Sicherheit gerade an kritischen Tagen
Gruß
Norre
RE: Makro in PhotoPaint - Karthagos - 24.09.2019
Hallo Norre,
dass die Meldung überflüssig ist, hatte ich eigentlich auch gedacht. Trotzdem ist es wieder ein unnötiger Bestätigungsklick mehr, den man vollziehen muß, deswegen suche ich immer Wege, etwas zu vereinfachen.
Gruß Günther
RE: Makro in PhotoPaint - koter - 24.09.2019
Hallo Günther,
(24.09.2019, 11:12)Karthagos schrieb: ...Schöner wäre es wenn ich diesen Speicherdialog mit voreingestelltem Dateityp .jpg hätte...
Du kannst es mit diesem Makro versuchen:
Code:
Sub JPGneuAusAuswahl()
Dim L As Layer
Dim ND As Document
Dim DN As String
Dim EF As ExportFilter
If ActiveDocument.Mask.IsEmpty Then
MsgBox "Keine Maske!", vbCritical, "Fehler"
Exit Sub
End If
DN = Left(ActiveDocument.FullFileName, Len(ActiveDocument.FullFileName) - 3) & "jpg"
DN = CorelScriptTools.GetFileBox("JPG (*.jpg)|*.jpg", "Datei Speichern", 1, DN)
If Trim(DN) = "" Then Exit Sub
Set L = ActiveDocument.Layers.Add("JPG", , , pntCopySelection)
L.Cut
Set ND = Application.CreateDocumentFromClipboard
ND.Layers.Merge
Set EF = ND.SaveAs(DN, cdrJPEG)
EF.Finish
End SubDer Dialog ist Deinem Screenshot ähnlich.
Ich bin nur nicht sicher, ob es mit Deiner Version klappt.
Ich habe X7.
Gruß
Koter