Hallo Leute,
ich habe knapp 200 Bilder welche eine fortlaufende Nummer auf sich tragen sollen.
Funktionieren soll das ganze indem die Textebene auf dem Bild immer wieder geändert wird.
Ich habe ein Script im Internet gefunden, welches dies ermöglicht.
Code
start=0 '***Erste Zahl***
ende=209 '***Letzte Zahl***
Speicherpfad="C:\Users\Julian\Documents\pngs\mit logo" '***Speicherpfad angeben***
vortext="ID:" '***Text vor der Nummer***
nachtext="" '***Text nach der Nummer***
textebene=1 '***Auf welcher Ebene befindet sich der Text***
quality=12 '***Qualität zwischen 1 und 12 wählen***
Set appref = CreateObject("Photoshop.Application")
If appref.documents.count<>0 Then
Set docref=appref.ActiveDocument
Else
MsgBox "Erst die Datei öffnen!"
End If
Set jpgSaveOptions = CreateObject( "Photoshop.JPEGSaveOptions" )
jpgSaveOptions.EmbedColorProfile = True
jpgSaveOptions.FormatOptions = 1 ' psStandardBaseline
jpgSaveOptions.Matte = 1 ' psNoMatte
jpgSaveOptions.Quality = quality
For i=start To ende
docref.ArtLayers(textebene).TextItem.Contents = vortext & CStr(i) & nachtext
outFileName = Speicherpfad & "" & i & ".jpg"
docRef.SaveAs outFileName, jpgSaveOptions, True, extType
NextDas klappt auch alles, allerdings bearbeitet er eben immer nur 1 Foto, und das 200 mal.
Ich möchte aber, das er alle 200 Fotos in dem Ordner öffnet, und dann Foto 1 die ID 1 gibt, und Foto 2 die ID 2 usw.
Mit einem *.png am Ende des Speicherpfades habe ich es bereits versucht.
Da das Script ein VBS Script ist, kenne ich mich damit absolut garnicht aus. Kann mir wer helfen das so umzuschreiben wie ich das haben möchte,
oder hat eine andere Idee wie das zu lösen ist?
MfG
DasBrot