Weergaveinstellingen

[CrashPuppy]

Ik heb een paar excel bestanden gemaakt die afhankelijk van de monitorinstellingen ingesteld kan worden op 1024x768 of 1280x1024.
Is er een VBA truukje dat wanneer het excel bestand geopend wordt, en de monitor of burobladinstellingen staat b.v. op 1280x1024 dat excel de weergave instellingen van het werkblad automatisch aanpast op 1280x1024 of 1024x 768.
Nu gebeurt dit handmatig d.m.v. onderstaande formule middels een opdrachtknop

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Select
ActiveWindow.Zoom = 80 (of 100)
Next

Wie help me uit de brand.

CrashPuppy

 

[Hoornvan]

CrashPuppy,

Kun je de code niet in ThisworkBook zetten.
Als je het opent hij gelijk de macro uitvoert.

 

[CrashPuppy]

CrashPuppy,

Kun je de code niet in ThisworkBook zetten.
Als je het opent hij gelijk de macro uitvoert.

Daar wil ik ook naar toe maar dan moet eerst gekeken worden met werden monitorinstellingen de gebruiker werkt.
Het is tenminste mijn wens om dit zo op te lossen. Er werken meerdere gebruikers met die bestanden en verschillende monitorinstellingen. Ik wil t.a.v. hiervan dus zo weinig mogelijk interactie

 

[Hoornvan]

CrashPuppy,

Daar wil ik ook naar toe maar dan moet eerst gekeken worden met werden monitorinstellingen de gebruiker werkt.

Ik moet hier afhaken omdat ik daar geen verstand van heb.
Suc6

 

[Roncancio]

Er is op internet wel het eea over te vinden (bijv. van Walkenbach)

Ik ben een beetje huiverig om scherminstellingen van gebruikers aan te gaan passen.
Dit wordt in de regel niet bepaald op prijs gesteld.

Met vriendelijke groet,


Roncancio

 

[Warme bakkertje]

CrashPuppy, deze ben ik eens tegengekomen op het internet. Kijk eens of je hiermee verder kan.

Private Sub Workbook_Open()
'
' Automatische zoom factor toepassen
' Laatste maal aangepast 14-08-2008
Application.ScreenUpdating = False
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Select
Ondergrens = 10
bovengrens = 190
IW = 1020 'aantal zichtbare cellen
    Do While Abs(ActiveWindow.VisibleRange.Cells.Count - IW) > kolommen * 3.7
        testwaarde = (bovengrens + Ondergrens) / 2
            If testwaarde < Ondergrens Or testwaarde > bovengrens Then Exit Sub
                ActiveWindow.Zoom = testwaarde
            If ActiveWindow.VisibleRange.Cells.Count > IW Then
                Ondergrens = testwaarde
            Else
                bovengrens = testwaarde
            End If
        kolommen = ActiveWindow.VisibleRange.Columns.Count
    Loop
Next
Sheets(1).Select
Application.ScreenUpdating = True
End Sub

Mvg

Rudi