Different Monitor/Different Resolution

[mahmed1]

Hi All,

I have this problem where i have designed my spreadsheet/Template on 18inch monitor.

Now if i were to view this on a bigger or smaller monitor, the whole spreadsheet looks either too small or big and messes up the whole look of the spreadsheet. Is there a way i can show my spreadsheet exactly the same way i designed it on my screenon all computers?

I am using excel 2007

Many Thanks

 

[Special-K99]

If the screen resolution and physical hardware ratio of the monitor is the same then the spreadsheet should look the same on all monitors.
What are thee details of the monitors where they appear to be different, ie screen resolution, display ratio?

 

[mahmed1]

If the screen resolution and physical hardware ratio of the monitor is the same then the spreadsheet should look the same on all monitors.
What are thee details of the monitors where they appear to be different, ie screen resolution, display ratio?

Hi I am not sure what the screen resolution, display ratio is

How can i check to see what they are set at?

 

[mahmed1]

All i know is that my screen monitor i use at work is a 22inch and the spreasheet is at 100%

My Monitor at home is 26inch

 

[VoG]

ADVERTISEMENT

Try running GetScreenSize

Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Const HORZRES = 8
Const VERTRES = 10


Sub GetScreenSize()
    MsgBox ScreenResolution()
End Sub

Function ScreenResolution()
Dim lRval As Long
Dim lDc As Long
Dim lHSize As Long
Dim lVSize As Long

lDc = GetDC(0&)
lHSize = GetDeviceCaps(lDc, HORZRES)
lVSize = GetDeviceCaps(lDc, VERTRES)
lRval = ReleaseDC(0, lDc)
ScreenResolution = lHSize & "x" & lVSize
End Function

 

[mahmed1]

Try running GetScreenSize

Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Const HORZRES = 8
Const VERTRES = 10


Sub GetScreenSize()
    MsgBox ScreenResolution()
End Sub

Function ScreenResolution()
Dim lRval As Long
Dim lDc As Long
Dim lHSize As Long
Dim lVSize As Long

lDc = GetDC(0&)
lHSize = GetDeviceCaps(lDc, HORZRES)
lVSize = GetDeviceCaps(lDc, VERTRES)
lRval = ReleaseDC(0, lDc)
ScreenResolution = lHSize & "x" & lVSize
End Function

Hi I get,

1680 x 1050

How i can i set it to be the same resolution or the exact way i have set it up regardless of what computer/Monitor i open the spreadsheet on?

Many Thanks

 

[VoG]

ADVERTISEMENT

I'm a bit puzzled as to why the rcreen resolution is affecting the display of an Excel sheet unless you have code like the following

Sub FitToScreen()
Range("A1:H10").Select ' change range as appropriate
ActiveWindow.Zoom = True
End Sub

 

[mahmed1]

Hi,

I tried this function at home and it shows 1280 x 1024 and at work 1680 x 1050. It shows bigger on my computer at home so to make it fit i need to change the zoom at home to 85% but this makes the writing smaller.

What am i doing wrong

 

[mahmed1]

Hi Vog, any luck with this. This spreadsheet has no code in it.

I tried this function at home and it shows 1280 x 1024 and at work 1680 x 1050. It shows bigger on my computer at home so to make it fit i need to change the zoom at home to 85% but this makes the writing smaller.

 

[mahmed1]

Sorry to be a pain Vog

Any chance or luck with the above

Thank You