Ange sidinställningsattribut för fler än ett blad i Excel
Anteckning
Office 365 ProPlus byter namn till Microsoft 365-appar för företag. Mer information om den här ändringen finns i det här blogginlägget.
Sammanfattning
I Microsoft Excel inställningar anges attribut för utskriftsformat, t.ex. marginaler, sidorientering och utskriftsrubriker, individuellt för varje kalkylblad. I den här artikeln beskrivs tre metoder som du kan använda för att ange några av de här attributen globalt.
Mer information
Ange attribut för utskriftsformat för en grupp Excel kalkylblad med någon av följande metoder.
Metod 1: Ändra en grupp kalkylblad
Om du vill använda sidinställningsattribut för en grupp kalkylblad i en arbetsbok gör du så här:
Tryck på CTRL och klicka sedan på varje kalkylbladsflik i arbetsboken som du vill påverka.
Klicka på Utskriftsformat på Arkiv-menyn.
Anteckning
I Excel 2007 klickar du på dialogruteprogrammet i gruppen Utskriftsformat på fliken Sidlayout.
Gör de ändringar du vill i dialogrutan Utskriftsformat och klicka sedan på OK.
Alla kalkylblad som du har markerat har samma attribut för utskriftsformat.
Metod 2: Använda ett makro
Microsoft tillhandahåller programmeringsexempel enbart i förklarande syfte och gör inga utfästelser, varken uttryckligen eller underförstått. Detta omfattar men begränsas inte till underförstådd garanti för säljbarhet eller lämplighet för ett visst syfte. I denna artikel förutsätts att du känner till det programmeringsspråk som demonstreras och de verktyg som används för att skapa och felsöka procedurer. Microsoft-supporttekniker kan förklara funktionaliteten i en viss procedur, men de ändrar inte de här exemplen för att ge ytterligare funktioner eller skapa procedurer som uppfyller dina specifika krav. Du kan programmässigt ändra attributen för utskriftsformat i den aktiva arbetsboken och i andra öppna arbetsböcker.
Anteckning
Dessa makron använder egenskapen Orientering för objektet PageSetup. Du kan ändra andra attribut för utskriftsformat genom att använda andra PageSetup-egenskaper, till exempel LeftMargin, RightMargin och så vidare.
Om du vill ändra sidorienteringen för alla blad i den aktiva arbetsboken programmässigt använder du stegen i föregående exempel:
Starta Excel.
Ange data i tre kalkylblad.
Tryck på ALT+F11 för att starta Visual Basic Editor.
Klicka på Modul på Infoga-menyn.
Skriv följande kod på modulbladet:
Sub SetAttributes() For Each xWorksheet In ActiveWorkbook.Worksheets xWorksheet.PageSetup.Orientation = _ Worksheets("Sheet1").PageSetup.Orientation Next xWorksheet End SubTryck på ALT+F11 för att växla till Excel.
Välj Blad1.
Klicka på Utskriftsformat på Arkiv-menyn.
Anteckning
I Excel 2007 klickar du på dialogruteprogrammet i gruppen Utskriftsformat på fliken Sidlayout.
Klicka på Liggande under Orientering på fliken Sida och klicka sedan på OK.
Peka på Makro på Verktyg-menyn och klicka sedan på Makron.
Anteckning
I Excel 2007 gör du följande:
- Gör så här om fliken Utvecklare inte är tillgänglig: > 1. Klicka på Microsoft Office och klicka sedan på Excel Alternativ. > 1. I kategorin Populära markerar du kryssrutan Visa fliken Utvecklare i menyfliksområdet under De översta alternativen när du arbetar med Excel och klickar sedan på OK.
- Klicka på knappen Makron i gruppen Kod på fliken Utvecklare.
Klicka på Angeattribut och klicka sedan på Kör.
Alla tre kalkylbladen har liggande orientering i förhandsgranskningsvyn. Om du programmässigt vill ändra sidinställningsattributen för alla sidor i den aktiva arbetsboken baserat på utskriftsformatsattributen för en annan öppen arbetsbok följer du stegen i följande exempel:
Anteckning
Det här är en fortsättning på följande exempel.
Klicka på Nytt på Arkiv-menyn.
Anteckning
I Excel 2007 klickar du Microsoft Office knapp och sedan på Nytt.
Klicka på Arbetsbok och sedan på OK.
Anteckning
I Excel 2003 klickar du på Tom arbetsbok under Nytt i åtgärdsfönstret Ny arbetsbok. I Excel 2007 går du till Mallar och kontrollerar att Tom och nyligen använda är markerad och dubbelklickar sedan på Tom arbetsbok under Tom och nyligen använda i fönstret till höger.
Ange data i alla kalkylblad i den nya arbetsboken.
Tryck på ALT+F11 för att Visual Basic redigeringsredigeraren.
Markera den första arbetsboken i Project Och klicka sedan på Modul1 under mappen Moduler.
Ersätt med följande kod på modul1-bladet:
Sub SetWorkbookAttributes() For Each xWorksheet In ActiveWorkbook.Worksheets xWorksheet.PageSetup.Orientation = _ ThisWorkbook.Worksheets("Sheet1").PageSetup.Orientation Next xWorksheet End SubTryck på ALT+F11 för att växla tillbaka till Excel.
Peka på Makro på Verktyg-menyn och klicka sedan på Makron.
Anteckning
I Excel 2007 går du till fliken Utvecklare och klickar på Makron i gruppen Kod.
Klicka på Bok1! SetWorkbookAttributes och klicka sedan på Kör.
Orienteringen för utskriftsformat är densamma som för blad 1 i den första arbetsboken.
Om du vill ändra ytterligare egenskaper för utskriftsformat för kalkylblad kan du lägga till ytterligare rader i för varje ... Nästa uttryck i varje Sub-procedur. Raderna ska vara identiska med de exempelrader som anges här, förutom att egenskapen (Orientering) kan ändras efter behov (CenterFooter, PaperSize och så vidare).