Skript Neues VB-Skript m.Kill-EXIF+Skalieren+JPG-Qualität

[Snoopy_Woodstock]

Buenos Dias zusammen,      

ich habe ein neues Skript in den Skript-Download-Bereich hochgeladen:
SkalierenUndKillexif.vbs

Es macht:
- Alle im Vorschaufenster selektierten Bilder werden unter Beibehaltung des Seitenverhältnisses auf die eingegebene Größe (Pixel) skaliert (längere Seite des Bildes).
- Wenn 'Kill-EXIF' angehakt ist, werden Exif-Daten bei Abspeicherung gelöscht
- Speichert als JPG mit Qualität 1%(schlecht) - 100%(beste)
  (mit 0 %: Fixfoto-Einstellung)
- Speichert im gleichen Verzeichnis der Quelldateien
- Hängt an Dateinamen '_Normgr'(öße) an (%name%_Normgr.jpg)
- Bei starkem Verkleinern wird in 50 %-Schritten mit zwischengelegtem Schärfen (Param. 32) skaliert

- Bei starkem Vergrößern kann der Arbeitsspeicher überlaufen #> Fixfoto stürzt ab!)  ???    :

Und das Dialogfenster hat eine Preview-Ansicht für die Kontrolle der Bildgröße, z. B. wenn man Mini-Versionen fürs Web erzeugen will. (Soll-Pixelzahl der längeren Seite eingeben und Button 'Vorschaubild' drücken; kann natürlich mehrmals angewendet werden)

Das Skript basiert auf Scalefix.vbs von JKS,  

Viele Grüße    :  
Snoopy_Woodstock

 

[Snoopy_Woodstock]

Re: Neues VB-Skript m.Kill-EXIF+Skalieren+JPG-Qual

Buenos Dias zusammen      

Wo ich schon dabei war, hab ich das obige Skript etwas verändert, um ein größeres Vorschaubild zu ermöglichen (fürs Erstellen von Mini-Versionen fürs Web).
Jetzt geht ein Riesen-Dialogfenster auf und das Bild kann bis 510 Pixel (hoch oder breit) angezeigt werden. Da nicht jeder dies braucht (z. B. wenn er vergrößert) oder sich erschlagen fühlt, lasse ich das erste Skript im Downloadbereich.

Das Neue heißt:
Skalieren_UndKillexif_PreviewBig.vbs

Viel Spaß damit !!!  ;D    ;D

Snoopy_Woodstock   :  

 

[ralfeberle]

Re: Neues VB-Skript m.Kill-EXIF+Skalieren+JPG-Qual

Hallo!

Sehr schön das, vielen Dank. Noch ein Wunsch: Lade die Skripte bitte in den Ordner 'Skalieren', das wäre optimal.

Gruß,

Ralf

 

[Snoopy_Woodstock]

Re: Neues VB-Skript m.Kill-EXIF+Skalieren+JPG-Qual

Hallo Ralf,
ja wie bitte ? Hab ich nicht gefunden .

Grüße
Snoopy_Woodstock


P.S. Und bevor Günter rabuliert (kritisiert): der Vorteil gegenüber FF-Direktbenutzung ist nur, daß man Kill-EXIF nicht einzeln für jedes Bild aufrufen muß, da dies noch nicht in der Stapelverarbeitung ist. Es ist erst der Anfang, Erweiterungen folgen noch.

P.P.S. Und als alles fertig war, fiel es mir wie Schuppen aus den Haaren, daß die Dialogbox-Größe besser an die übliche Monitorausrichtung angepaßt wäre: breit mit den Erklärungen und Eingabefeldern neben dem Bild. Dann könnte das Vorschaubild noch größer werden. Aber das mach ich erst mit dem nächsten Skript.

 

[guenter_w]

Re: Neues VB-Skript m.Kill-EXIF+Skalieren+JPG-Qual

Hallo!

Mein Gott - hab ich einen vers***ten Ruf! Das ist mir ja richtig peinlich!

Dabei wollte ich immer nur konstruktiv kritisieren...

Ich sitze jetzt ganz beschämz in der Ecke!  

Gruß

Günter

 

[Zaph]

Re: Neues VB-Skript m.Kill-EXIF+Skalieren+JPG-Qual

Hallo!

Mein Gott - hab ich einen vers***ten Ruf! Das ist mir ja richtig peinlich!

Dabei wollte ich immer nur konstruktiv kritisieren...

Ich sitze jetzt ganz beschämz in der Ecke!  

Gruß

Günter

Siehs positiv:
"Ist der Ruf erst ruiniert, lebt's sich völlig ungeniert" ;-)

Grüße Zaph

 

[ralfeberle]

Re: Neues VB-Skript m.Kill-EXIF+Skalieren+JPG-Qual

Hallo Snoopy-Woodstock!

Ordner 'Skalieren' unter 'VBScript'!

Gruß,

Ralf