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