Hello

I am opening a workbook that has Worksheets and Chart Sheets on a number of
different computers with different resolutions.

Can I resize the workbook to fit the screen on opening?

David

You can put this in the Workbook_Open event.
However, this assumes that nobody actually wants the windows arranged like
that and also that the Workbook's windows are not protected.
May be look into using Custom Views.

Dim Wnd As Window

Application.WindowState = xlMaximized

For Each Wnd In ThisWorkbook.Windows
Wnd.WindowState = xlMaximized
Next

NickHK

"David" wrote in message
...
Hello

I am opening a workbook that has Worksheets and Chart Sheets on a number
of
different computers with different resolutions.

Can I resize the workbook to fit the screen on opening?

David

All of the computers open the workbook maximised.
Maybe I should have said that I would like to zoom the worksheet or the
chart sheet so that same information is viewed on each computer.

I dont want them to have to scroll horizontally to see all the information.

David

"NickHK" wrote:

You can put this in the Workbook_Open event.
However, this assumes that nobody actually wants the windows arranged like
that and also that the Workbook's windows are not protected.
May be look into using Custom Views.

Dim Wnd As Window

Application.WindowState = xlMaximized

For Each Wnd In ThisWorkbook.Windows
Wnd.WindowState = xlMaximized
Next

NickHK

"David" wrote in message
...
Hello

I am opening a workbook that has Worksheets and Chart Sheets on a number
of
different computers with different resolutions.

Can I resize the workbook to fit the screen on opening?

David

Record a macro whilst you change the zoom .
Possibly add a range to select to move the viewable area also.

Or use Custom Views, as I said.

NickHK

"David" wrote in message
...
All of the computers open the workbook maximised.
Maybe I should have said that I would like to zoom the worksheet or the
chart sheet so that same information is viewed on each computer.

I dont want them to have to scroll horizontally to see all the
information.

David

"NickHK" wrote:

You can put this in the Workbook_Open event.
However, this assumes that nobody actually wants the windows arranged
like
that and also that the Workbook's windows are not protected.
May be look into using Custom Views.

Dim Wnd As Window

Application.WindowState = xlMaximized

For Each Wnd In ThisWorkbook.Windows
Wnd.WindowState = xlMaximized
Next

NickHK

"David" wrote in message
...
Hello

I am opening a workbook that has Worksheets and Chart Sheets on a
number
of
different computers with different resolutions.

Can I resize the workbook to fit the screen on opening?

David