how to adjust screen dashbpard display to variace screen resolutions

[ami_dd]

hi there,

thank you in advance to who may help me.l

i made a wonderful dashboard in excel
my screen resolution - is 1680X1050
and as proud that i was - i went to my boss and wanted to show him the dashboard.
my boss has a resolutin of 800X600
and as you can guess - he saw allmost nothing
so... what can i do on order to adjust the dashboard to variace display resolution ? (any viewer that see this dashboard?)

thank you !!!!!!!!!!!!!!!!!!!!!

amiram dekel

 

[Trevor G]

You would have to use some kind of API call to see what the resolution is or to reset it. Is there a reason why your boss would have a different setting to yours?

Here is some sample code to find out what the resolution is.

Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1

Sub screen1()
Dim Tmp As String
Tmp = GetSystemMetrics(SM_CXSCREEN) & _
"x" & GetSystemMetrics(SM_CYSCREEN)
MsgBox (Tmp)
End Sub

As another thought you could either ask them who they are when they enter the workbook then set the zoom control according to who they are, or some kind of environ code to set the zoom when they open the workbook.

 

[ami_dd]

Hi trevor thank you for your quick response

i guess - he want to see better, glasses and evrything and also difrent screen type
i don't control vba that good - do i right this vba as is - do i copy it and paste it?

Amirma

 

[Trevor G]

Amirma

Is it just the boss your concerned about to see your dashboard clearly?

If so I can create the code and tell you where to place it. You will have to replace some basic information though.

 

[ami_dd]

I need any user to see it good
for now i know that all managment members - 10 pepole

 

[Trevor G]

The following code will adjust the sheet zoom control for each sheet in the workbook. To add it so that when the workbook is opened then do the following:

Open the workbook > Use Alt + F11 (Takes you to the VBA screen) > Look at left side of the screen and then double click on the item that says thisworkbook > Select drop down which states Object and change to Workbook, paste in this code. If you find you need to reduce further then change the number in blue to something like 70, give this a go and if you need this to be specific to your boss we can adjust it.

Private Sub Workbook_Open()
'***********************************************************
'The following code changes the zoom control on all sheets to 85%
'Created by Trevor G - April 2011
'The purpose is to zoom all sheets to 85%
'************************************************************
Application.ScreenUpdating = False
Dim wksht As Worksheet
For Each wksht In Worksheets
wksht.Activate
ActiveWindow.Zoom = 85
Range("A1").Select
Next wksht
'Sheets("welcome").Select
Application.ScreenUpdating = True
'MsgBox "All sheets resized to 85%", vbInformation, "Trevor G"
End Sub