• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Automatische aanpassing scherm% in EXCEL

Status
Niet open voor verdere reacties.

Humadgen

Gebruiker
Lid geworden
16 aug 2006
Berichten
251
Hallo,
Ik heb een EXCEL programma gemaakt wat ik moet uitrollen over verschillende gebruikers waarvan ik de meeste niet eens persoonlijk ken en ik ook niet weet wat voor resolutie ze gebruiken, of het aantal inch beeldscherm ze hebben.

Nu heb ik de verschillende schermen op 85% beeldgroote staan aangezien die het op het beeldscherm van mijn laptop goed doet. Maar werk ik op mijn vaste werkstation dan kan ik de % bijvoorbeeld op 120% zetten en dan is mijn scherm pas helemaal gevuld.

Weet iemand of er een mogelijkheid is om EXCEL automatisch te laten aanpassen aan de scherminstellingen zoals dat ook bij websites gebeurd?

Grtnx
Humadgen.
 
Laatst bewerkt:
Kijk of onderstaande een oplossing biedt. Te plaatsen in ThisWorkbook

Code:
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
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan