Schermgrootte

[CrashPuppy]

Hoe kan ik middels een simpele code ervoor zorgen dat alle sheets binnen een werkmap standaard op 80 of 100 % zoom worden gezet.

Crashpuppy

 

[Wigi]

Crashpuppy

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

Wigi

 

[CrashPuppy]

Crashpuppy

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

Wigi

Hoi Wigi,

Het werkt perfect, maar om 50 bladen voorbij te zien schieten kan andere gebruikers afschrikken.
Kan dit verborgen gehouden worden.

CrashPuppy

 

[Wigi]

Sub Macro1()
    Application.ScreenUpdating = False
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Select
        ActiveWindow.Zoom = 80 'of 100
    Next
        Application.ScreenUpdating = True
End Sub

 

[CrashPuppy]

Sub Macro1()
    Application.ScreenUpdating = False
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Select
        ActiveWindow.Zoom = 80 'of 100
    Next
        Application.ScreenUpdating = True
End Sub

Hoi Wigi

Hartstikke bedankt, je lijkt wel het 9e wereldwonder.
De eerlijkheid gebied me te zeggen dat het om 153 werkbladen ging. Het bestand is qua MB's maar 2,5

CrashPuppy

 

[Wigi]

Hartstikke bedankt, je lijkt wel het 9e wereldwonder.

Je slaat het achtste wereldwonder over... of ben jij dat?

De eerlijkheid gebied me te zeggen dat het om 153 werkbladen ging.

Als ik van jou was zou ik daar toch iets aan doen. Het zal de eerste keer niet zijn dat zoiets crasht...

Wigi

 

[Wigi]

In orde, zet de vraag nog op opgelost aub.

 

[CrashPuppy]

Je slaat het achtste wereldwonder over... of ben jij dat?



Als ik van jou was zou ik daar toch iets aan doen. Het zal de eerste keer niet zijn dat zoiets crasht...

Wigi

Het is geen complexe werkmap waarin veel kritische data rondzweef met allerlei referenties etc.etc.
Ik ben op dit moment wel met een ander projectje bezig waarin ik juist wel gekozen heb voor een andere opzet bestaande uit verschillende werkmappen. Dit wordt een tooltje voor ca 35 gebruikers die hun managementinfo (dagproductie) erin moeten persen.

CrashPuppy

BTW: dat 8e wereldwonder is toch Vista

 

[Wigi]

In orde, zet de vraag nog op opgelost aub.

Wil je dit nog even doen? Bedankt.