Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 4 van 4

Onderwerp: inzoomen bij openen

  1. #1
    Senior Member
    Geregistreerd
    22 december 2019
    Vraag is niet opgelost

    inzoomen bij openen

    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
    Bijgevoegde bestanden Bijgevoegde bestanden

  2. #2
    Giga Senior cow18's avatar
    Geregistreerd
    24 mei 2008
    Locatie
    Alveringem, België
    in de Thisworkbook-module
    Code:
    Private Sub Workbook_Open()
       inzoomen
    End Sub

  3. #3
    Senior Member
    Geregistreerd
    22 december 2019
    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.

  4. #4
    Giga Senior cow18's avatar
    Geregistreerd
    24 mei 2008
    Locatie
    Alveringem, België
    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.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren