Stapelverarbeitung (quadratischer Hintergrund)

[hundebuecher]

Hallo!

Ich habe etwa 650 Bilder (*.jpg) unterschiedlicher Grösse, die unterschiedliche Kantenlängen aufweisen. Ich benötige sie aber alle quadratisch.
Das heisst: Aus einem 400x250-Foto bräuchte ich es in 400x400 (längere Seitenlänge x längere Seitenlänge). Aus einem 100x75 müsste 100x100 werden. Und zwar natürlich ohne das Motiv zu verzerren.
Erreichen kann man das durch einen weissen Hintergrund, auf den das Foto einfach eingefügt wird.

Frage: Kann ich das irgendwie auch per Stapelverarbeitung hinbekommen? Also ausgehend von der längeren Kantenlänge das jeweilige Bild mit einem weissen (besser: transparent) Hintergrund versehen?

Manuell ist mir das dann doch etwas zu öde .
Ich habe Photoshop CS.

[hotschen]

Per Aktion wüßte ich nicht wie das gehen sollte. Mit einem Script allerdings kein Problem.
Voraussetzung für folgendes Script ist allerdings Windows als BS.
Kopiere folgenden Code in eine neue Textdatei und speichere sie als "ResCanvas.vbs". Nun kannst du per Drag 'n Drop beliebig viele Bilder auf das Script ziehen, die dann "quadratisch gemacht" und im selben Verzeichnis unter neuem namen als PSD abgespeichert werden. Alternativ zum Drag 'n Drop kannst du auch das Verzeichnis der Bilder oben im Script angeben und das Script per Doppelklick starten.

Option Explicit

Dim appref, docref, pfad, datei, c, i, fso, x, bg, docname

'*******Eingabebereich****************************
pfad="C:\temp"
bg=0	'0 für Transparenten BG, 1 für BG mit Hintergrundfarbe
'*************************************************

Set appref = CreateObject("Photoshop.Application")
If WScript.Arguments.count<>0 Then 
	For i=0 To WScript.Arguments.count-1
		datei= wscript.arguments.item(i)
		Set docref=appref.open (datei)
		resCanvas
	Next
Else
	Set fso = CreateObject("Scripting.FileSystemObject") 
	Set datei=fso.getfolder (pfad)
	For Each c In datei.Files
		Set docref=appref.Open (c.Path)
		resCanvas
	Next
End If

Sub resCanvas()
	If bg=0 And docref.ArtLayers(docref.ArtLayers.count).isbackgroundlayer=True Then 
		docref.ChangeMode 2
		docref.ArtLayers(docref.ArtLayers.count).isbackgroundlayer=False
	End If
	If docref.Width > docref.Height Then x =docref.Width Else x=docref.Height 
	docref.ResizeCanvas x,x
	docname=docref.Path & "_" & mid(docref.Name,1,len(docref.name)-4) & "_squared"
	docref.SaveAs docname
	docref.close
End Sub

[hundebuecher]

Hallo HOTSCHEN und einen RIESENDANK!

Ich bin auf dem richtigen Weg , allerdings habe ich von Scripten - wie von so vielen anderen Ding auch - keine Ahnung .

Das hab' ich getan:
Ich habe den Code komplett in ein Textdokument kopiert, diese wie von Dir gesagt benannt (incl. der *.vbs-Endung) und auf dem Desktop gespeichert. Das war alles einleuchtend.
Wenn ich aber per DragAndDrop ein *.jpg darauf ziehe, dann finde ich es unverändert auf dem Desktop wieder. Und in dem Ordner, aus dem ich es verschoben habe, da fehlt die Datei dann.
Wenn ich den Pfad zu dem Ordner im Script angebe, dann öffnet sich das Script, mehr leider nicht.

Ich gehe also mal davon aus, dass ich etwas falsch mache. Aber was nur?
Als Betriebssystem nutze ich XP Professional.

Viele Grüsse!

[hotschen]

Ist mir unerklärlich. Vielleicht findest du sie nur nicht, weil ein Unterstrich vorangestellt wird? Also aus "bild.jpg" wird "_bild_squared.psd".
Ansonsten... klappts denn, wenn du im Script den Ordnerpfad angibst und das Script per Doppelklick startest?

[hundebuecher]

Hallo!

Zum besseren Verständnis:
Der Ordner mit den Bildern drin liegt auf dem Desktop und heisst COPYvorher.
Statt pfad="C:\temp" habe ich also eingegeben: pfad="C:\Dokumente und Einstellungen\Christian\Desktop\COPYvorher". Dann klicke ich auf das Icon ResCanvas.vbs und es öffnet sich das Script. Also im Editor. Hmmmmmmmmm...

[hotschen]

Hmm, du scheinst den WSH nicht (oder nicht richtig) installiert zu haben.
Versuch mal das Script mit wscript.exe zu öffnen ("Öffnen mit...")

Download vom Windows Scripting Host findest du hier

[hundebuecher]

In dem Verzeichnis I386 befindet sich eine wscript.exe; wenn ich mit dieser öffne, dann passiert das:



Dieses WSH habe ich mir eben bei Microsoft geladen, installiert und habe dann vorschriftsmässig neu gestartet.

*schnief*

[hotschen]

Könnte es u.U. sein, dass du die Dateinamenerweiterungen ausgeblendet hast und die Datei "ResCanvas.vbs.txt" heißt?
Kann man unter Ordneroptionen im Explorer nachsehen.

[hundebuecher]

Ja, das habe ich per XP-AntiSpy gemacht.

*rotwerdesmilie*

[hundebuecher]

*rotwerdesmilie*

Genug geschämt .

Ich habe das rückgängig gemacht, jetzt ist da auch ein ganz schickes Icon. Eine Papierrolle, ein Script eben!

Wenn ich einen Bilder enthaltenden Ordner auf die ResCanvas ziehe, dann öffnet sich jetzt Photoshop, aber es erscheint dann recht flott eine Meldung:



Wenn ich die ResCanvas mit der wscript.exe öffnen will, dann erscheint das da:



Nerve ich schon?

[hotschen]

Wenn ich einen Bilder enthaltenden Ordner auf die ResCanvas ziehe, dann öffnet sich jetzt Photoshop, aber es erscheint dann recht flott eine Meldung:
...

Nicht den Ordner draufziehen, sondern die Bilder (müsste ich bei Gelegenheit mal abändern). Du kannst zwar beliebig viele Bilder nutzen, aber wie gesagt, nicht den Ordner.

[hundebuecher]

Es geht, es geht, es geht!

Besten Dank, Hotschen.
Der Rest geht dann wiederum per Aktion. Du hast mir sehr sehr geholfen. Ich benötige die vielen quadratischen Bilder für meinen Online-Shop, weil sonst die Listenansicht durch unterschiedlich breite Artikelbilder echt zum Davonlaufen aussieht!