Hallo.
Ich erbitte Hilfe zu folgendem Code-Snipplet, das ich unter Photopaint als Macro laufen lassen möchte. (man verzeihe mir die rudimentäre Form, aber ich will nur was ausprobieren!)
Es werden die vorhandenen Bilddateien in SW umgewandelt und anschließend möchte ich sie als GIF-Datei abspeichern. Aber das Abspeichern klappt nicht...
Code:
Option Explicit
Sub test()
Dim doc As Document
Dim c, i As Integer
Dim filename As String
filename = "Dummy"
c = Documents.Count
For i = 1 To c
Documents(i).Activate
Set doc = Documents(i)
'doc.mode: 0 = BW, 2 = Gray, 4 = 24bit
If doc.Mode <> 0 Then doc.ConvertToBW cdrRenderLineArt, , 144 'Schwellenwert bei 144
filename = InputBox(doc.filename, "Dateiname" & i, filename & i)
doc.Export "C:\Users\xxxx\Desktop\jpg-Arbeitsspeicher\" & filename & ".gif", cdrGIF
Next
End Sub
Im Debug-Modus wird der Datei-Name korrekt angezeigt, aber es wird keine Datei abgespeichert :-(
Ich habe keine Ahnung, wieso das speichern nicht klappt. Hat von euch bitte jemand einen Tipp für mich?