Print side | Luk vindue

Sætte zoom i alle ark til fx 125%

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=4886
Udskrevet den: 12.Maj.2024 kl. 06:13


Emne: Sætte zoom i alle ark til fx 125%
Besked fra: ErnstJ
Emne: Sætte zoom i alle ark til fx 125%
Posteringsdato: 21.Feb.2023 kl. 14:32
Hvordan kan jeg sætte alle ark i en workbook til en zoom på 125%? Jeg tænker at jeg vil gøre dette i en Workbook_Open() sub så zoom procenten sættes automatisk afhængig af skærmstørrelsen - jeg har både en stor særke og en mindre skærm i en MacBook Pro.


Svar:
Besked fra: EXCELGAARD
Posteringsdato: 11.Apr.2023 kl. 12:24 
Dim WS  As Excel.Worksheet
Dim WAI As Excel.Worksheet
Set WAI = ActiveSheet

For Each WS In ThisWorkbook.Worksheets
      WS.Select
      ActiveWindow.Zoom = 125
Next
WAI.Select

Set WS  = Nothing
Set WAI = Nothing




-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.

Besked fra: ErnstJ
Posteringsdato: 12.Apr.2023 kl. 08:13
Tak for denne elegante løsning!

Besked fra: EXCELGAARD
Posteringsdato: 12.Apr.2023 kl. 11:07
Velbekomme Smile

-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.


Print side | Luk vindue