Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketSætte zoom i alle ark til fx 125%
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
ErnstJ Se dropdown
Forum Begynder
Forum Begynder


Medlem: 04.Dec.2022
Land: Danmark
Status: Offline
Point: 9 		Direkte link til dette indlæg Emne: Sætte zoom i alle ark til fx 125%
    Sendt: 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.
Til top



Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5470 		Accepteret svar Accepteret svar
Direkte link til dette indlæg Sendt: 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.
Til top
ErnstJ Se dropdown
Forum Begynder
Forum Begynder


Medlem: 04.Dec.2022
Land: Danmark
Status: Offline
Point: 9 		Direkte link til dette indlæg Sendt: 12.Apr.2023 kl. 08:13
Tak for denne elegante løsning!
Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5470 		Direkte link til dette indlæg Sendt: 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.
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk