Possibly autofit excel to user display

[goofy78270]

I was wondering if it is possible to autofit an excel sheet to the users display.

We publish are looking to publish a product matrix to our Intranet but a concern from the reviewers is that since users have different display resolutions, could we possibly autofit the display, by setting the default to zoom to where the complete matrix heading fits on the screen - Columns A-L

I know how to adjust the zoom but how do I check to see what the users resolution is?

 

[MorganO]

Here is some code I came across awhile back and use in one of my applications to zoom a sheet to a users screen. You only need to send the subroutine the cell reference (row and column) of the lower-right corner cell of the area you want visible on the screen, and the routine will zoom to a best fit to keep that cell on the screen.

Hope this helps.

Take care.

Owen

Sub ZoomToFit(BottomRow, RightColumn)

'do not let the zoom go lower than 25% or greater than 200%

    With ActiveWindow
          .Zoom = 100
        'zoom out
        Do While Not Intersect(.VisibleRange.Cells, Range(Cells(BottomRow, RightColumn), Cells(BottomRow, RightColumn)).Cells) Is Nothing
            .Zoom = .Zoom + 5
            If .Zoom > 200 Then
              .Zoom = 200
              Exit Sub
            End If
        Loop

        'zoom in
        Do While Intersect(.VisibleRange.Cells, Range(Cells(BottomRow, RightColumn), Cells(BottomRow, RightColumn)).Cells) Is Nothing
            .Zoom = .Zoom - 5
            If .Zoom < 25 Then
              .Zoom = 25
              Exit Sub
            End If
        Loop  
End Sub