Gitternetz über Bild legen

[schauan]

Hallo Ralf,

die Frage wäre, was die breite Spalte hervorruft. Kommt die vom Bild oder vom Bereich, wo es eingefügt wird.

Der Spaltenbereich vom Bild wird ja über die Selection festgelegt:

Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture

Wenn da bereits eine Spalte zuviel ist und Du von da den Druckbereich nehmen wolltest, müsstest Du schauen, ob der Druckbereich mit der Selection übereinstimmt und die Selection ggf. verkleinern. Allerdings bräuchtest Du gar nicht mit der Selection arbeiten, du könntest stattdessen auch gleich
ActiveSheet.Range("Druckbereich")
nehmen

Wenn es im Blatt Druck eine Spalte breiter wird, dann verkleinere dort den Druckbereich um eine Spalte oder passe das Bild in der Größe an - falls dadurch nicht die Seite zu lang wird (bei gleichem Seitenverhältnis) oder sich das Bild verzerrt (bei Änderung nur der Breite).