Display Scroll bars

T

Tony Bender

What is the best way to assure that when an Excel workbook is open it
fills the entire screen, regardless of the user's display specs, and
that both the horizontal and vertical scrollbars display.

I've tried:

Private Sub Workbook_Open()
With Application
.DisplayFullScreen = True
.DisplayScrollBars = True
.DisplayStatusBar = True
End With
End Sub

And I've also tried:

Private Sub Workbook_Open()
Application.DisplayFullScreen = True
ActiveWindow.DisplayHorizontalScrollBar = True
End Sub

The problem is the horizotal scrollbar does not appear. Ironically
after I check my Vb code, and return to the sheet, the horizontal
scroll bar does appear.

Thanks,
 
C

Chip Pearson

Try something like

Dim W As Window
Application.WindowState = xlMaximized
For Each W In Application.Windows
W.WindowState = xlMaximized
Next W


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
 
Top