[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?

[eitch100]

Ist das da nicht irgendetwas mit SaveAs und Finish?

Also anstatt:
doc.Export "C:\Users\xxxx\Desktop\jpg-Arbeitsspeicher\" & filename & ".gif", cdrGIF

dieses:
doc.SaveAs(FileName:="C:\Users\xxxx\Desktop\jpg-Arbeitsspeicher\" & filename & ".gif", Filter:=cdrGIF).finish

Alles ohne Gewähr... kenne mich da nicht wirklich aus...

Edit: Lies mal hier (insbesondere ab "Automatic Cropping"). Da öffnet er eine Reihe von Bildern, bearbeitet sie, speichert sie ab und schließt sie wieder...
[ Link nur für registrierte Mitglieder sichtbar. Bitte einloggen oder neu registrieren ]

[mbmb]

Vielen Dank.

Damit wird auf jeden Fall mal gespeichert. Wobei ich nicht ganz verstehe, wieso in einer VB-Anleitung das mit dem Export-Befehl (ausführlich) erklärt wird wenn das dann eh nicht funktioniert.

[mbmb]

Warum man NIRGENDWO in den Tutorials finden kann, dass "finish" erforderlich ist, bleibt mir ohnehin ein Rätsel.

Korrekt muss es also lauten:

doc.Export("C:\Users\xxxx\Desktop\jpg-Arbeitsspeicher\" & filename & ".gif", cdrGIF).Finish

[eitch100]

Versuch mal diesen Befehl, ob es dann ohne "Finish" geht:

ActiveDocument.Export "C:\Users\xxxx\Desktop\jpg-Arbeitsspeicher\" & filename & ".gif", cdrGIF

oder anstatt set doc = Document(i):

set doc = ActiveDocument
...
doc.Export "C:\Users\xxxx\Desktop\jpg-Arbeitsspeicher\" & filename & ".gif", cdrGIF