Hallo,
mit den beiden zusätzlichen Zeilen
SelectionMove[nb, Previos, Cell];
SetOptions[NotebookSelection[nb], ImageMargins->{{0,0},{0,0}}];
klappt's bei mit. Die erste Zeile muß eventuell angepaßt werden, damit auch wirklich die Output-Zelle mit der Graphik
selektiert ist. Wenn man die Graphik mit der Maus nach links schiebt und sich die Zelle mit Strg E anschaut, kann man
sehen, daß ohne die Zeilen bei den ImageMargins ein Rand eingetragen ist.
Mit freundlichen Grüßen
Rasmus Debitsch
Carl Zeiss
Carl Zeiss Strasse 50
73447 Oberkochen
Debitsch@XXXXXXX.de