Bilder auffüllen

[tlj]

Ich möchte 100 bilder von 1024 x 768 auf 1280 x 1024 machen

Ich möchte darum automatisch die bilder an jeder seite mit farbe bis zu dieser größe auffüllen lassen größere sollen ignoriert werden xD diese sollen nur verkleinert werden
hat jemandand dafür zufällig ein script auf lager thx tlj

 

[oscarr]

automatisieren.stapelverabeitung.handbuch

 

[tlj]

wie denn ?

 

[hotschen]

Mit der Automatisierung von PS wird das nix, da man hier keine Fallunterscheidungen treffen kann. Du müsstest 4 Aktionen anlegen und die Bilder in 4 verschiedene Ordner packen (klein+Hochformat, klein+Querformat, groß+Hochformat, groß+Querformat)
Solche Probleme lassen sich aber hervoragend durch ein Script lösen. Kopiere folgenden Code in eine neue Textdatei, pass die Pfade an und speichere sie als "irgendwas.vbs". Anschliessend per Doppelklick ausführen.
Voraussetzung: PS CS(2) oder PS7 mit Scriptunterstützungsplugin (oder wie auch immer das heißt) und Windows(andernfalls müsste sich jemand finden, der das in JS umschreibt)

Option Explicit

Dim appref, docref,startRulerUnits,ordner,dateien,datei, FSO, quellpfad, zielpfad

'*******Hier die Ordnerpfade anpassen********
quellpfad="C:\quellordner"
zielpfad="C:\zielordner"
'***************************************

Set appref = CreateObject("Photoshop.Application")
Set FSO = CreateObject("Scripting.FileSystemObject")

startRulerUnits = appref.Preferences.RulerUnits
appref.Preferences.RulerUnits = 1 'Pixel

Set ordner=FSO.getfolder (quellpfad)
Set dateien=ordner.files
For Each datei In dateien
	datei=CStr(datei)
	appref.open (datei)
	Set docref=appref.ActiveDocument
	If (docref.Width>docref.Height AND docref.Width < 1280 ) Then
	    docref.ResizeCanvas 1280, 768
	Else
	    docref.ResizeImage 1280, 768
	End If
	If (docref.Width<docref.Height AND docref.Height < 1280 ) Then
	    docref.ResizeCanvas 1024, 1280
	Else
	    docref.ResizeImage 1024, 1280
	End If	
	
	docref.SaveAs zielpfad
	docref.Close
Next

appref.Preferences.RulerUnits = startRulerUnits