vba zoom in hoogte en breedte

[littlepete]

hallo

dit is denk ik een meer wiskundige dan excelvraag:

ik heb een "voorstelling" die ik op een aantal computers wil weergeven, maar de schermen zijn allemaal verschillend.
de hoogte is altijd 70 rijen de breedte is altijd 47 kolommen.
alle pagina's staan gewoon onder elkaar om de 70 rijen begint een nieuwe pagina.
door te klikken op een cel in een pagina springt de macro naar de gevraagde pagina (=> activewindow.scrollrow)

hoe kan ik met een macro zorgen dat steeds de volledige pagina op het scherm staat bij het openen (auto_open)
dus: de hoogte van de pagina moet kleiner zijn dan de hoogte van t scherm en idem met de breedte ...

bedankt !
peter

 

[RickXL]

Hi,

Apologies, I still cannot speak Dutch

Is this what you need?

    Worksheets(1).Range("A1:AU70").Select
    ActiveWindow.Zoom = True

 

[littlepete]

hello rick
i want each page having a range of exactly 70 rows and more or less 47 columns,
to fit on each computer screen, by zooming in or out, in other words:
zoom to fit a1:au1 on screen OR to fit a1:a69 on screen (a70 is first row of page two)
depending on the sizes of the used screen...
if i do one or the other there is a big chance the other side is too large ...

i'd like to get vba to get the combination of both
thanks
pete, belgium

 

[RickXL]

Hi, thanks for the translation.

I think the code I supplied will do that. Have you tried it? What happened?

 

[littlepete]

hello rick

i'm home here so i only have one monitor to try,
but i have the impression that it works well !
i adjusted a bit the values...

i guess selecting a square more or less is ideal to fit on both wide monitors and old square monitors !

thanks for the help !!! so glad that works now !!!

thank you
pete, belgium

 

[RickXL]

You're welcome and thanks for the feedback.

Regards,

 

[Peter_SSs]

i want each page having a range of exactly 70 rows and more or less 47 columns, ..

In that case, I think all you really need is to select A1:A70 (or is it A1:A69) before you do the ActiveWindow.Zoom
That way it is the height that will be the critical factor and just whatever columns will fit.