Office: genau 1 Seite Breit

Ich habe ein Excel File und formatiere dieses mit einem Makro. Ich möchte jetzt, dass es genau 1 Seite breit wird, autmatisch, ohne manuelles anpassen.

Das Problem ist, dass ich mehrere Spalten habe, von denen einige eine feste Breite haben sollten (weil sonst Darstellung mies ist), einige (2) eine variable breite haben können.
Die Breite der variablen Spalten wird durch eine Spalte definiert, deren Breite ebenfalls variabel ist. Die Zellen dieser Spalte enthalten Bilder, die eine ziemlich unterschiedliche Breite haben können. Das breiteste Bild definiert dann automatisch die Breite dieser Spalte.

EDIT:

Das File hat noch 3 Titel-Zeilen und 1 Kopfzeile für die Spalten-Benennung.
in den Titel-Zeilen hat es gemergte Zellen. Manchmal machen ja gemergte zellen probleme.

Ich setzte im Makro die breiten der fixen Spalten fest und im Seitenlayout mache ich folgendes:

Code:

Dummerweise funktioniert das nicht. Auchw enn ich den Spalten F und G vorher ne fixe breite zuweise, es passiert nichts. Wähle ich alle Spalten aus, dann wird es angepasst, aber auch meine fixen spalten (vorallem diese...) werden verändert.

Kann man dieses Problem lösen und wie?

:)

 

Moin, Perfectdark,

ohne Blick auf die Mappe würde ich die Anpassung Autofil vor die Zuweisung der Seitenbreite ziehen sowie auf die Anwesiung .FitToPagesTall = False ganz verzichten. Ein Beispiel nachzubauen bringt meiner Meinung nach nichts, da ich nicht weiß, was und wo etwas verbunden und/oder statisch/variabel ist...

 

geht auch nicht. Das .FitToPagesWide = 1 scheint nicht zu funktionieren.

In Excel und im Ausdruck (habe extra noch den druck getestet) ist das file breiter als 1 Seite. Vermutlich lässt sich das nicht per vba einstellen.

EDIT:

Habe die Lösung gefunden (google):

Code:

(Kann nicht mal über MS beklagen, der mist steht sogar im vba help :O)