X4 - Speichern von JPG schneller

[Matti]

Hallo,

ich bearbeite einige Bilder per Hand nach.
Maske, retusche etc.

Wenn ich dann speichere gibt es erstmal eine Masken-Warnung und dann, da JPG, die JPG-Export-Einstellung.

Beides würde ich begrüssen, wenn man da nicht jedesmal auf OK klicken müsste.

Kann man das irgendwie umgehen?

Danke für Infos und Tipps.

Gruß
Matti

[norre]

Wenn ich dann speichere gibt es erstmal eine Masken-Warnung und dann, da JPG, die JPG-Export-Einstellung.
Beides würde ich begrüssen, wenn man da nicht jedesmal auf OK klicken müsste.
Kann man das irgendwie umgehen?

Hallo, die Maske vorher löschen (STRG+R)
Beim JPG export willst du ja sicher die Qualität begutachten oder drückst du einfach auf ok.

Eventuell könntest du dir auch ein Script aufzeichnen das die Maske löscht und das Bild als JPG mit immer gleichen Einstellungen speichert.

Du weißt ja sicher, dass bei jedem speichern eines JPG die Qualität leidet.
Deshalb lieber (zum archivieren) als Tif, oder als Corelformat CPT abspeichern (da bleibt dann auch die Maske und Ebenen erhalten) und wenn du wirklich mal ein komprimiertes Bild brauchst, kannst du dann immer noch ein JPG daraus machen

[Matti]

Hi,

das ist ja im Prinzip der letzte Schritt, und mir langt das.

Wenn ich ein Skript aufnehme, wird erstmal das Bild-Format gespeichert. Da es unterschiedliche Größen sind, stört das, ich nehme an, das kann man löschen.

Die Maske per Hand löschen geht, aber das sehe ich irgendwie nicht ein. ;-)
Kann doch nicht sein, das man jedesmal diese nervige Frage der Maske bekommt.

Was die JPG-Export-Einstellung betrifft, ist alles "optimal" eingestellt, so daß ich OK klicke.

Was das speichern betrifft, es sind immer andere Datei-Namen, und da weiß ich nicht, wie man das im Skript richtig angibt.
Es soll die vorhandene Datei nach der Bearbeitung einfach überschrieben werden.

Gruß
Matti

[norre]

Wenn ich ein Skript aufnehme, wird erstmal das Bild-Format gespeichert. Da es unterschiedliche Größen sind, stört das, ich nehme an, das kann man löschen.

Ja, einfach rauslöschen

Die Maske per Hand löschen geht, aber das sehe ich irgendwie nicht ein.
Kann doch nicht sein, das man jedesmal diese nervige Frage der Maske bekommt.

JPG unterstützt weder Masken noch Ebenen, also Maske löschen oder damit leben.

Was das speichern betrifft, es sind immer andere Datei-Namen, und da weiß ich nicht, wie man das im Skript richtig angibt.
Es soll die vorhandene Datei nach der Bearbeitung einfach überschrieben werden.

Sollte so funktionieren, wenn du einfach auf speichern gehst und bei überschreiben auf ok ;-) klickst

[Matti]

Hmmm, Danke.

Naja, ob ich jetzt den Button für Maske-Entfernen drücke oder die Masken-Warnung überdrücke, ist ziemlich gleich. Jeweils ein klick.

Beim Speichern, wir ein bestimmter Filename und Verzeichnis verwendet, was bedeuten würde, ich überschreibe eine Datei, deswegen kann das so nicht möglich sein.

Na, scheint eh nicht so zu gehen wie ich mir das vorgestellt habe, dann mach ich halt weiter wie bisher.

Trotzdem vielen Dank für Eure Hilfe.

Gruß
Matti

[koter]

Hallo Matti,

Du könntest Dir folgendes Makro auf eine Symbolleiste legen,
damit kann man, mit einem Klick, ohne einen Dialog JPGs speichern.

Code:

Sub jpgspeichern()
    FName = ActiveDocument.FullFileName
    FName = Left(FName, Len(FName) - 3) & "jpg"
    CorelScript.FileSave FName, 774, 0
End Sub

Gruß
koter

[Matti]

Hallo Koter,

vielen Dank.

Ich kenne mich mit diesem Code nicht so aus.

Da wird doch die Ursprungsdatei damit überschrieben, oder? Das ist ja genau das, was ich will.

Kann man den Code auch vom Makro aus aufrufen?

Gruß
Matti

[koter]

...Da wird doch die Ursprungsdatei damit überschrieben, oder? Das ist ja genau das, was ich will...

Hallo Matti,

so ist es. Wenn Du eine JPG-Datei öffnest und das Makro ausführst, wird die Ursprungsdatei überschrieben.

um das Makro zu benutzen, kannst Du es Direkt aus dem Forum kopieren und in die GlobalMacros einfügen.

Das geht so:
Starte den VBA-Editor mit ALT+F11.
Klicke mit der rechten Maustaste auf GlobalMacros und wähle: Einfügen/Modul.
Kopiere dann das Makro (also den Code) aus dem Forum und füge es in das neue Modul ein.

Du kannst dann eine Schaltfläche für das Makro auf eine Symbolleiste legen.

Das geht so:
Wähle das Menü Extras/Optionen.
Wähle unter Optionen: Arbeitsbereich/Anpassung/Befehle.
Wähle aus dem Dropdown den Punkt VBA-Makros.
Ziehe das Makro "jpgspeichern" aus dem Listenfeld auf eine Symbolleiste.
Schließe die Optionen mit OK.

Du kannst nun das Makro mit einem Klick auf die neue Schaltfläche ausführen.

Masken müssen nicht gelöscht werden,
es erscheint kein Dialogfeld,
die Ursprungsdatei überschrieben.

Ich hoffe es klappt, ich habe es mit PP-X4 unter XP getestet.

Gruß

koter

[Matti]

Hallo Koter,

perfekt, Funktioniert.

Wie heißt der Befehl, das nach dem Speichern auch gleich die Datei geschlossen werden kann?

Close funktioniert nicht. Passiert gar nichts.

Ich glaube

Code:

CorelScript.FileClose

ist richtig, da es funktioniert. :-)

Danke für Infos.

BTW: Gibt es irgendwo eine Anleitung mit Tipps für diese VBA Programmierung?

Gruß
Matti

[koter]

Hallo Matti,

im Corel-Programmerzeichnis (Programme\Corel\CorelDRAW Graphics Suite X4\Programs) gibt es eine Programmieranleitung (dvba_pg.pdf)

Gruß

koter