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

Ja das geht. Datei->Automatisieren->Stapelverarbeitung

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

Danke

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:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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ß

Zitat von Markus Kolletzky

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...

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

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

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

Hallo,

Sollte normalerweise nicht sein, denn der Code besagt ja:

Code :

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

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

Gruß

@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)

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

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

Super ! Es geht 1A

Danke !

PS: Wo finde ich mehr Infos darüber ? Kann man auch Strukturierungen einstellen ? Also, dass der Zahl z.B. immer eine "0" vorrangestellt wird...

Noch etwas...

Ich habe noch etwas ähnliches wie die Zahlensache zu erledigen...
Kann man sowas auch mithilfe von einem Array (wie bei PHP) einsetzen, womit ich Werte aus einer Liste auch automatisiert erstelle ? Ich muss ca. 150 Buttons machen, mit verschiedenen Texten.

Geht sowas ?

Danke

Zitat von Sebigf

Super ! Es geht 1A

Danke !

PS: Wo finde ich mehr Infos darüber ? Kann man auch Strukturierungen einstellen ? Also, dass der Zahl z.B. immer eine "0" vorrangestellt wird...

Du meinst bei einstelligen Zahlen? Den 'Format'-Befehl gibts unter VBS leider nicht, nur unter VB. Aber man kann sich mit einer kleinen Abfrage helfen. Ersetze die Schleife im Script durch diese:

Code :

1 2 3 4 5

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

Zum anderen Problem:
Du willst bestimmte Sachen aus einer Textdatei auslesen? Auch kein Problem. Habe mal sowas für Tischkarten gemacht. Ein Beispiel kannst du hier runterladen.

Geniales Script ! danke

Wie kann ich es machen, dass es einfach nur in die Grafik gelegt wird und als 72DPI GIF abgespeichert wird ?

## Nachtrag

Es handelt sich dabei um Foren-Buttons... leider

Zitat von Sebigf

Geniales Script ! danke

Wie kann ich es machen, dass es einfach nur in die Grafik gelegt wird ...

?
Was ist 'es'?