PSD-Tutorials.de
Forum für Design, Fotografie & Bildbearbeitung
Shop
Tutkit
Agentur
Hilfe
Kontakt
Start
Forum
Aktuelles
Foren durchsuchen
Tutorials
News
Anmelden
Kostenlos registrieren
Aktuelles
Suche
Suche
Nur Titel durchsuchen
Von:
Menü
Anmelden
Kostenlos registrieren
App installieren
Installieren
JavaScript ist deaktiviert. Für eine bessere Darstellung aktiviere bitte JavaScript in deinem Browser, bevor du fortfährst.
Du verwendest einen veralteten Browser. Es ist möglich, dass diese oder andere Websites nicht korrekt angezeigt werden.
Du solltest ein Upgrade durchführen oder einen
alternativen Browser
verwenden.
Antworten auf deine Fragen:
Neues Thema erstellen
Start
Forum
Contest-Bereich - 2D, 3D & Fotografie
2D-Contests - Monatscontests, User-Battles, ...
automatisiert Fotos auf gleiche Größe bringen?
Beitrag
<blockquote data-quote="hotschen" data-source="post: 66464" data-attributes="member: 559"><p>Kopiere dazu folgenden Text in eine leere Textdatei und speichere sie als "irgendwas.vbs" ab.</p><p>[code]</p><p>Dim appref </p><p>Set appref = CreateObject("Photoshop.Application")</p><p>Dim docref </p><p>Dim startRulerUnits</p><p>Dim jpgSaveOptions</p><p>set jpgSaveoptions= CreateObject("Photoshop.JPEGSaveOptions")</p><p>'Set jpgSaveOptions = New photoshop.JPEGSaveOptions</p><p></p><p>'****Eingaben******************</p><p>quellordner = "C:\quellbilder" 'Quellordner angeben</p><p>zielordner = "C:\zielbilder" 'Zielordner angeben</p><p>kontur = 1 'Konturstärke angeben</p><p>jpgSaveOptions.Quality = 8 'Speicherqualität (1-12) angeben</p><p>'******************************</p><p></p><p>startRulerUnits = appref.Preferences.RulerUnits</p><p>appref.Preferences.RulerUnits = 1 'Pixel</p><p></p><p> Set fso = CreateObject("Scripting.FileSystemObject")</p><p> If Not fso.folderexists(quellordner) Then</p><p> MsgBox "Quellordner existiert nicht!"</p><p> wscript.quit</p><p> End If</p><p> If Not fso.folderexists(zielordner) Then</p><p> MsgBox "Zielordner existiert nicht!"</p><p> wscript.quit</p><p> End If</p><p> Set datei = fso.getfolder(quellordner)</p><p> For Each c In datei.Files</p><p> appref.Open c.Path</p><p> Set docref = appref.ActiveDocument</p><p> ratio = docref.Width / docref.Height</p><p> If docref.Width > docref.Height Then</p><p> breite = 300</p><p> hoehe = 300 / ratio</p><p> Else</p><p> hoehe = 300</p><p> breite = 300 * ratio</p><p> End If</p><p> docref.ResizeImage breite, hoehe, , 4</p><p> docref.ResizeCanvas 300, 300</p><p> docref.Selection.SelectAll</p><p> docref.Selection.Stroke appref.ForegroundColor, kontur, 1</p><p> docref.SaveAs zielordner, jpgSaveOptions, False</p><p> docref.Close 1</p><p> Next</p><p></p><p>appref.Preferences.RulerUnits = startRulerUnits</p><p>[/code]</p><p></p><p>Setze in PS deine Hintergrundfarbe auf weiss und als Vordergrundfarbe die deiner Kontur. Passe die Pfadangeben im Code noch an und starte anschliessend die *.vbs Datei per Doppelklick.</p><p></p><p>PS: Für den Schlagschatten benötigt man schon ein paar infos mehr. Am einfachsten, du erstellst dir einen Stil und weißt deinen Dateien diesen dann per Code zu (kann ich dir ggf. anpassen)</p></blockquote><p></p>
[QUOTE="hotschen, post: 66464, member: 559"] Kopiere dazu folgenden Text in eine leere Textdatei und speichere sie als "irgendwas.vbs" ab. [code] Dim appref Set appref = CreateObject("Photoshop.Application") Dim docref Dim startRulerUnits Dim jpgSaveOptions set jpgSaveoptions= CreateObject("Photoshop.JPEGSaveOptions") 'Set jpgSaveOptions = New photoshop.JPEGSaveOptions '****Eingaben****************** quellordner = "C:\quellbilder" 'Quellordner angeben zielordner = "C:\zielbilder" 'Zielordner angeben kontur = 1 'Konturstärke angeben jpgSaveOptions.Quality = 8 'Speicherqualität (1-12) angeben '****************************** startRulerUnits = appref.Preferences.RulerUnits appref.Preferences.RulerUnits = 1 'Pixel Set fso = CreateObject("Scripting.FileSystemObject") If Not fso.folderexists(quellordner) Then MsgBox "Quellordner existiert nicht!" wscript.quit End If If Not fso.folderexists(zielordner) Then MsgBox "Zielordner existiert nicht!" wscript.quit End If Set datei = fso.getfolder(quellordner) For Each c In datei.Files appref.Open c.Path Set docref = appref.ActiveDocument ratio = docref.Width / docref.Height If docref.Width > docref.Height Then breite = 300 hoehe = 300 / ratio Else hoehe = 300 breite = 300 * ratio End If docref.ResizeImage breite, hoehe, , 4 docref.ResizeCanvas 300, 300 docref.Selection.SelectAll docref.Selection.Stroke appref.ForegroundColor, kontur, 1 docref.SaveAs zielordner, jpgSaveOptions, False docref.Close 1 Next appref.Preferences.RulerUnits = startRulerUnits [/code] Setze in PS deine Hintergrundfarbe auf weiss und als Vordergrundfarbe die deiner Kontur. Passe die Pfadangeben im Code noch an und starte anschliessend die *.vbs Datei per Doppelklick. PS: Für den Schlagschatten benötigt man schon ein paar infos mehr. Am einfachsten, du erstellst dir einen Stil und weißt deinen Dateien diesen dann per Code zu (kann ich dir ggf. anpassen) [/QUOTE]
Bilder bitte
hier hochladen
und danach über das Bild-Icon (Direktlink vorher kopieren) platzieren.
Zitate einfügen…
Authentifizierung
Der grüne Frosch hüpft über die Hügel an den Bäumen vorbei in die Höhle. Bitte nenne das zweite Wort!
Antworten
Start
Forum
Contest-Bereich - 2D, 3D & Fotografie
2D-Contests - Monatscontests, User-Battles, ...
automatisiert Fotos auf gleiche Größe bringen?
Oben