09.04.2017, 06:14
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).
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).
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)