Logo Questions Linux Laravel Mysql Ubuntu Git Menu
 

Setting all Excel sheets at a defined zoom level

I have more than twenty sheets in an Excel workbook (file). Is there some code snippet or a command I could apply/use so that all sheets could be reset to let's say 85% zoom level?

like image 674
Regmi Avatar asked May 10 '11 17:05

Regmi


People also ask

How do I change the default Zoom level in Excel?

Select the View tab. Select Zoom in the Zoom group. Choose the percentage to which you want to zoom. Alternatively, select Page Width, Text Width, or Whole Page.

How do I scale all sheets in Excel?

To do this, go to Page Layout > Page Setup > Orientation, and click Landscape. Consider using a larger paper size to accommodate many columns. To switch the default paper size, go to Page Layout > Page Setup > Size, and then choose the size you want.

How do you change the Zoom level of a worksheet?

Click the View tab, and in the Zoom group, click Zoom 100%. Click the View tab, and in the Zoom group, click Zoom to Selection, which maximizes the view of cells that you've selected. Click the View tab, and in the Zoom group, click Zoom, and then enter a percentage or choose any other settings that you want.


1 Answers

Sub SetZoom()     Dim ws As Worksheet      For Each ws In Worksheets         ws.Select         ActiveWindow.Zoom = 85 ' change as per your requirements     Next ws End Sub 

BTW, if you simply select all worksheets in your workbook using the tabs you can then set the zoom to 85% and it will apply to all worksheets

like image 138
Alex P Avatar answered Sep 28 '22 09:09

Alex P