Avatar billede Lone Praktikant
21. april 2021 - 11:01 Der er 5 kommentarer

Makro/VBA vælge alle ark og sideopsætning

Hej
nogen som har en god løsning på makro, der vælger alle ark og dernæst går i sideopsætning op opsætter stående og kun 1 side?
Avatar billede thomas_bk Ekspert
21. april 2021 - 12:33 #1
Du kan jo prøve med makro optageren, det burde virke fint :-)
Avatar billede Lone Praktikant
21. april 2021 - 12:50 #2
Hej Thomas
Det gør det også, men jeg vil meget gerne have makroen gjort uafhængig af forhåndsvalgte ark. Det bliver det lidt, når man bruger markere alle ark. jeg har forsøgt at erstatte dette med For Each myWorksheet In Worksheets, men det får jeg ikke til at virke
Avatar billede kim1a Ekspert
21. april 2021 - 12:53 #3
For x = 1 to worksheets.count

Koden til at ændre sideopsætning

next
Avatar billede store-morten Ekspert
23. april 2021 - 13:49 #4
Noget ala:
Sub TilpasSide()
    For Each s In ActiveWorkbook.Worksheets

        With s.PageSetup
            .Orientation = xlLandscape
           
        End With
       
    Next s
End Sub
Avatar billede Lone Praktikant
26. april 2021 - 11:40 #5
Tak for hjælpen.
min løsning blev nedenstående.

Application.ScreenUpdating = False

    Dim ws As Worksheet
    For Each ws In Worksheets
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .Orientation = xlPortrait
        .FitToPagesWide = 1
        .FitToPagesTall = 2
        End With
    Application.PrintCommunication = True
    Sheets("makro").Select
   
    Next
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





Premium
IBM Danmarks indtjening styrtdykker: Lander nyt million-underskud
Efter to år med solide overskud lander IBM Danmark igen underskud i millionklassen i Danmark, hvor omsætningen dykker med 315 milloner kroner. Driftresultatet er næsten halveret i en tid, hvor IBM gør klar til at splitte selskabet op i to.
Computerworld
Stor krise i den danske it-stjerne David Heinemeiers Hanssons firma: Her er historien om dramaet, der fik en tredjedel af de ansatte i Basecamp til at smække med døren
De ansatte har i hobe forladt David Heinemeier Hanssons amerikanske succes-firma Basecamp efter en intern racisme-debat. Hvordan kunne det gå så galt?
CIO
Har du rost din mellemleder i dag? Snart er de uddøde - og det er et tab
Computerworld mener: Mellemledere lever livet farligt: Topledelsen får konstant ideer med skiftende hold i virkeligheden, og moden går mod flade agile organisationer. Men mellemlederen er en overset hverdagens helt med et kæmpe ansvar. Her er min hyldest til den ofte latterliggjorte mellemleder.
Job & Karriere
Eva Berneke stopper som topchef i KMD og flytter til Paris: Her er KMD's nye topchef
Efter syv år på posten som topchef for KMD forlader Eva Berneke selskabet. Nu flytter hun med familien til Paris, hvor hun vil fortsætte sit bestyrelsesarbejde. KMD har allerede afløser på plads.
White paper
Hvordan ser kundetilfredshed ud i det moderne kontaktcenter?
Det er simpelt: Dine kunder får de svar, som de har brug for, gennem deres fortrukne kanal, med forbløffende hastighed. Gå ikke glip af denne e-bog, hvor vi gennemgår alt hvad du behøver at vide omkring Cisco Webex Contact Center.