Ich möchte es so einfach haben, wie mit den Zahlen

Einfach nur die Textdatei Zeile für Zeile einlesen und generieren, aber als 72DPI GIF Grafik...

Du hast ja sogar noch CMYK und das mit dieser Zusammenfassung drin.
Mit php komme ich damit klar, aber nicht VBS.... leider

Also immer denselben Button, nur der Text ändert sich?
Versuchs mal mit folgendem Script. Kann es aber z.Z. nicht testen:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

Dim appref, docref, dateipfad, speicherpfad, zaehler, fso, datei, Saveoptions, Namen(), protokoll   dateipfad="namen.txt"       'Dateipfad zur Textdatei mit den Namen Speicherpfad="c:\temp"      'Speicherpfad für erstellte Dateien   Set appref = CreateObject("Photoshop.Application")   If appref.Documents.Count=0 Then     MsgBox "Erst eine Datei öffnen! Danach Script erneut ausführen."     WScript.Quit End If Set docref = appRef.ActiveDocument Set Saveoptions = Createobject("Photoshop.GIFSaveOptions")   Set protokoll=docref.ActiveHistoryState docref.MergeVisibleLayers docref.SaveAs speicherpfad & "\test", Saveoptions, True docref.ActiveHistoryState =protokoll   NamenEinlesen For i=1 To UBound(Namen)     docref.ArtLayers(1).TextItem.Contents = Namen(i)     Set protokoll=docref.ActiveHistoryState     docref.MergeVisibleLayers     docref.SaveAs speicherpfad & Namen(i), Saveoptions, True     docref.ActiveHistoryState =protokoll    Next   Sub NamenEinlesen()     zaehler=0     Set fso = CreateObject("Scripting.FileSystemObject")     Set datei = fso.opentextfile(dateipfad,1)         Do While Not datei.AtEndOfStream         Redim Preserve Namen(zaehler)         Namen(zaehler)=datei.readline         zaehler=zaehler+1     Loop     zaehler=zaehler-1     datei.close End Sub

PS: Die Textebene muß in diesem Fall die oberste Ebene sein.

Es scheint etwas zu machen, allerdings werden keine Dateien erzeugt... zumindest nicht im Zielordner. Angaben sind richtig gemacht worden von mir...

Hast du eine Idee?

Ich vermute mal, du hast in deinem Stammverzeichnis jetzt einige Dateien mehr ...sorry.

Ersetze diese Zeile

Code :

1	docref.SaveAs speicherpfad & Namen(i), Saveoptions, True

durch diese:

Code :

1	docref.SaveAs speicherpfad & "\" & Namen(i), Saveoptions, True

docref.ArtLayers(1).TextItem.Font = "Arial"
docref.ArtLayers(1).TextItem.Size= 12

geht mir ein

Wie stelle ich dann noch die Farbe ein


Danke

Oh cool Habe es

Schreibe es hier mal schnell rein, falls es noch jemand brauchen kann!



Set textColor = CreateObject ("Photoshop.SolidColor")
textColor.RGB.Red = 255
textColor.RGB.Green = 255
textColor.RGB.Blue = 255

Hier stellt man die Farbe an und init. das Objekt mit dem Namen textColor

Und dann kann man es aufrufen durch

docref.ArtLayers(1).TextItem.Color= textColor