Results 1 to 8 of 8
  1. #1
    4 Star Lounger
    Join Date
    Jan 2001
    Location
    Illinois
    Posts
    552
    Thanks
    0
    Thanked 1 Time in 1 Post

    zoom to 100% in Excel (Excel 2003)

    How do I make all the sheets in my workbook (100 of them) change the view to 100%? Some are 138% and I need them to be 100%. Thank you

  2. #2
    Silver Lounger
    Join Date
    Mar 2001
    Location
    Springfield, Ohio, USA
    Posts
    2,136
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: zoom to 100% in Excel (Excel 2003)

    Use the ScaleHeight and ScaleWidth methods. For example, see below to reset the selected chart to 100%. HTH --Sam
    <pre>Option Explicit
    Sub Scale100()
    With ActiveWindow.Selection.ShapeRange
    .ScaleHeight 1#, msoTrue
    .ScaleWidth 1#, msoTrue
    End With
    End Sub
    </pre>

    <font face="Comic Sans MS">Sam Barrett, CACI </font face=comic>
    <small>And the things that you have heard... commit these to faithful men who will be able to teach others also. 2 Timothy 2:2</small>

  3. #3
    4 Star Lounger
    Join Date
    Jan 2001
    Location
    Illinois
    Posts
    552
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: zoom to 100% in Excel (Excel 2003)

    ok, thank you very much. I am using this but it is skipping the chart worksheets. How do i specify chart sheets as well as worksheets?

    Sub Scale100()
    Dim wsh As Worksheet
    On Error Resume Next

    For Each wsh In ActiveWorkbook.Worksheets
    wsh.Select
    With ActiveWindow.Selection.ShapeRange
    .ScaleHeight 1#, msoTrue
    .ScaleWidth 1#, msoTrue
    End With
    Next wsh
    Set wsh = Nothing
    MsgBox ("Done")

    End Sub

  4. #4
    Silver Lounger
    Join Date
    Mar 2001
    Location
    Springfield, Ohio, USA
    Posts
    2,136
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: zoom to 100% in Excel (Excel 2003)

    Oh, sorry, I thought you were talking about your Power Point show. Just a minute, I'll switch to XL.
    <font face="Comic Sans MS">Sam Barrett, CACI </font face=comic>
    <small>And the things that you have heard... commit these to faithful men who will be able to teach others also. 2 Timothy 2:2</small>

  5. #5
    Uranium Lounger
    Join Date
    Jan 2001
    Location
    South Carolina, USA
    Posts
    7,295
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: zoom to 100% in Excel (Excel 2003)

    The simple way is to select all of the sheets (click on the first one, then hold down shift and click on the last one), and type 100 in the zoom box on the tool bar.
    Legare Coleman

  6. #6
    Silver Lounger
    Join Date
    Mar 2001
    Location
    Springfield, Ohio, USA
    Posts
    2,136
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: zoom to 100% in Excel (Excel 2003)

    I don't think that there is any scaling on Chart sheets. Can you post an example where it is scaled? Do you maybe just need to set the window zoom to 100%? You will have to loop through the ChartSheets, activate them and set the window zoom.
    <pre> ActiveWindow.Zoom = 100
    </pre>

    <font face="Comic Sans MS">Sam Barrett, CACI </font face=comic>
    <small>And the things that you have heard... commit these to faithful men who will be able to teach others also. 2 Timothy 2:2</small>

  7. #7
    4 Star Lounger
    Join Date
    Jan 2001
    Location
    Illinois
    Posts
    552
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: zoom to 100% in Excel (Excel 2003)

    yes, that is what i mean. I don't know how to dim the chart sheets and loop through them.

  8. #8
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: zoom to 100% in Excel (Excel 2003)

    > I don't know how to dim the chart sheets

    Turn down the brightness of your monitor <img src=/S/grin.gif border=0 alt=grin width=15 height=15>

    Seriously, try something like this:

    Dim cht As Chart
    For Each cht In Charts
    cht.Activate
    ActiveWindow.Zoom = 100
    Next cht

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •