Bilder automatisch generieren mit fortlaufenden Zahlen

[Sebigf]

Hallo zusammen !

Ich muss für einem Kollegen 100 Bilder machen für ein Wertungssystem. Nun bin ich aber absolut zu faul da 100 Bilder immer zu ändern um abzuspeichern

Gibt es einen Weg, diese automatisch zu generieren + abspeichern ?

Danke

 

[susi22]

Ja das geht. Datei->Automatisieren->Stapelverarbeitung

 

[Sebigf]

Ok, aber wie wende ich das genau an ?
Ist auch eine neue Vergabe von Dateinamen möglich ?

Danke

 

[Markus Kolletzky]

Hallo,

Fortlaufende Nummerierungen geht nicht über irgendwelche Aktionen, dafür benötigst Du die PS-interne Script-Engine
(vgl. hierzu die beiden Tutorials Scripten in Photoshop, Teil 1 sowie Scripten mit Photoshop, Teil 2 - das Script.)

Und da der Autor des o.g. Tutorials (hotschen) auch in anderen Communities sein Wissen preis gibt
und Leuten bei den gleichen Problemen hilft, zitiere ich einfach mal den Code aus dem Thread vom DSLR-Forum:

anzahl=600		'***Anzahl de Nummern eingeben***
Speicherpfad="C:\temp"	'***Speicherpfad angeben***

Set appref = CreateObject("Photoshop.Application")
If appref.documents.count<>0 Then
	Set docref=appref.ActiveDocument
Else	
	MsgBox "Erst die Datei öffnen!"
End If

For i=1 To anzahl
    docref.ArtLayers(1).TextItem.Contents = CStr(i)
    docref.SaveAs Speicherpfad & "\" & i & ".jpg"
Next

Gruß

 

[susi22]

Hallo,

Fortlaufende Nummerierungen geht nicht über irgendwelche Aktionen, ...

Natürlich geht das! Eben mit der Stapelverarbeitung. Hab selber grad 10 Gallerien so gemacht.

Erst alle Bilder öffnen-
dann eine neue Aktion erstellen-
Aufnahmeknopf betätigen-
Bild ändern wie gewünscht- Aktion "stoppen"
Dann halt ins Menü Stapelverarbeitung gehen.
Set/Aktion wählen,
"geöffnete Dateien",
dann den Zielordner wählen.
Darunter kann man jetzt wählen WIE er es speichern soll. zb.: Zweistellige Seriennummer (01.jpg)
Mit dieser Nummer beginnt er und fährt fort bis zum letzten Bild (02, 03, 04... .jpg)
Und genauso lässt es sich auch weiter führen. zb: wenn man 03 eingibt, macht er weiter mit 04, 05, 06...

 

[Philip Kurz]

Hallo Susi.

Ich denke hier liegt ein Missverständnis vor. Sebigf möchte, meiner Meinung nach, nicht die Dateien nummerieren, sondern einzelne Grafiken mit den jeweiligen Zahlen erstellen. Das will er aber nun nicht 100 mal per Hand machen - verständlich.

Grüße

Philip

 

[susi22]

Ups, ja gut ok, denn hab ich nix gesagt. Das liest sich irgendwie ganz anders raus.:suspekt:

 

[Sebigf]

Danke euch allen für die Antworten

@ Markus Kolletzky

Dein Code funktioniert soweit super, nur macht er mit .psd Dateien und keine .jpg. Hast du eine Ahnung, woran das liegen kann ?

Danke

 

[Markus Kolletzky]

Hallo,

Sollte normalerweise nicht sein, denn der Code besagt ja:

    docref.SaveAs Speicherpfad & "\" & i & ".jpg"

Vielleicht sieht den Thread ja hotschen und er kann Dir weiterhelfen.

Gruß

 

[hotschen]

@Markus: Wie hast du das denn gefunden?

Aber stimmt schon. Es wird nur als PSD gespeichert...mein Fehler.

Hiermit speichert er als JPG: (Die Qualität kann man oben eingeben)

anzahl=600		'***Anzahl de Nummern eingeben***
Speicherpfad="C:\temp"	'***Speicherpfad angeben***
qualitaet=10			'Speicherqualitaet für jpg angeben (1..12)

Set appref = CreateObject("Photoshop.Application")
Set SaveOptions= CreateObject("Photoshop.JPEGSaveOptions") 
SaveOptions.Quality =qualitaet

If appref.documents.count<>0 Then
	Set docref=appref.ActiveDocument
Else	
	MsgBox "Erst die Datei öffnen!"
End If

For i=1 To anzahl
    docref.ArtLayers(1).TextItem.Contents = CStr(i)
    docref.SaveAs Speicherpfad & "\" & i & ".jpg",SaveOptions, True
Next