Full Screen View Problem

[dcwinter]

Hello,

After having included this code in the 'Workbook Open' module:

Application.DisplayFullScreen = True

It sometimes stops the main windows Task Bar at the bottom of the screen showing.

Is there any way to stop this happening?

CheerS

Danny

 

[Legacy 98055]

Should do it...

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Workbook_Open()
    Application.DisplayFullScreen = True
    SetWindowPos FindWindow("Shell_Traywnd", vbNullString), -1, 0, 0, 0, 0, &H40
End Sub

 

[dcwinter]

Thankyou very much!

But can you explain what the top two lines are doing? (Just for future reference).

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Many thanks

 

[Legacy 98055]

Those are Application Programmer Interface functions used to call low level operating system methods. The FindWindow function returns an ID number known as a handle to the Shell_Traywnd which is your system tray window. Using this handle and various other arguments, the SetWindowPos function, in this example, displays this window as the topmost window...