Private
Declare
PtrSafe
Function
SetWindowLong
Lib
"user32.dll"
_
Alias
"SetWindowLongPtrA"
( _
ByVal
hwnd
As
LongPtr, _
ByVal
nIndex
As
Long
, _
ByVal
dwNewLong
As
Long
)
As
Long
Private
Declare
PtrSafe
Function
GetWindowLong
Lib
"user32"
_
Alias
"GetWindowLongPtrA"
( _
ByVal
hwnd
As
LongPtr, _
ByVal
nIndex
As
Long
)
As
Long
Private
Const
GWL_STYLE = -16
Private
Const
WS_OVERLAPPED = &H0
Private
Const
WS_SYSMENU = &H80000
Private
Const
WS_THICKFRAME = &H40000
Private
Const
WS_CAPTION = &HC00000
Private
Const
WS_MAXIMIZEBOX = &H10000
Private
Const
WS_MINIMIZEBOX = &H20000
Sub
Vollbild()
Dim
TmpStyles
As
Long
Application.DisplayScrollBars = Application.DisplayFullScreen
Application.DisplayFullScreen =
Not
Application.DisplayFullScreen
Application.DisplayFormulaBar =
Not
Application.DisplayFullScreen
Application.DisplayStatusBar =
Not
Application.DisplayFullScreen
TmpStyles = GetWindowLong(Application.hwnd, GWL_STYLE)
TmpStyles = TmpStyles
Xor
WS_OVERLAPPED
Xor
WS_CAPTION
Xor
WS_SYSMENU
Xor
WS_THICKFRAME
Xor
WS_MINIMIZEBOX
Xor
WS_MAXIMIZEBOX
Call
SetWindowLong(Application.hwnd, GWL_STYLE, TmpStyles)
Application.WindowState = xlMinimized
Application.WindowState = xlMaximized
End
Sub