title: Excel VBA: getting zoom level corresponding with FitToPageWide
body: <p>I am trying to build a macro in Excel which loops through all worksheets, and based on the largest sheet, sets the zoom level to the same level for all worksheets so they all fit on one page but have the same scale (which is needed in printing).</p>
  
  <p>I am however having trouble with determining the zoom level which makes sure the biggest page fits to a 1 page width. </p>
  
  <p>When setting a worksheets width to fit on one page by using  <code>.PageSetup.FitToPagesWide = 1</code> the <code>.PageSetup.Zoom</code> property automatically gets set to FALSE. </p>
  
  <p>Setting the FitToPage properties back to false, the zoom level is unchanged from what it was before fitting to one page.</p>
  
  <p>When manually setting the sheet so it fits to one page wide, Excel does show which zoom level corresponds to this, but it seems there is no way to read this in VBA. Could someone help me with this issue?</p>