[mbmb]

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

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?