• 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.

inzoomen bij openen

Status
Niet open voor verdere reacties.
S

SUVERMO

Gebruiker
Lid geworden
22 dec 2019
Berichten
478
hallo iedereen

hoe kan men bekomen dat de macro "inzoomen" wordt uitgevoerd als men het bestand opent, ongeacht hoeveel bladen er in het bestand zijn

Code: 
Sub inzoomen()
    Range("a:ab").Select
    ActiveWindow.Zoom = True
End Sub
 

Bijlagen

  • inzoomen.xlsm
    17 KB · Weergaven: 19
in de Thisworkbook-module
Code: 
Private Sub Workbook_Open()
   inzoomen
End Sub
 
bedankt voor de reactie

na wat zoeken op het web en enkele aanpassingen heb ik de volgende code.
dit werkt prima bij het openen van het bestand

Code: 
Private Sub Workbook_Open()
Dim blad As Long
    For blad = 1 To Sheets.Count
        Sheets(blad).Activate
        Range("a:ab").Select
        ActiveWindow.Zoom = True
        Range("a1").Select
    Next
Sheets(1).Activate
End Sub

kan dit met volgende uitgebreid worden
1° zoom aanpassen als er een kolombreedte wordt gewijzigd
2° zoom aanpassen als kolommen worden verborgen of zichtbaar worden gemaakt.
 
Automatisch ? Neen.
Er bestaat niet zoiets al een Worksheet_ColumnWidthChange event.
Dus doe jet het in een macro, dan moet je die er zelf bij zetten, doe je het met het handje, dan moet je ook handmatig zoomen of ...
wachten tot je het bestand opnieuw opent of die Workbook_Open (deels) laat lopen.

Zet het anders eveneens in een Workbook_SheetActivate van Thisworkbook, zodat je telkens je een werkblad activeert, dat werkblad "gezoomd" wordt.

Het lijkt me anders eerder een vervelende optie.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan