Excel und Windows-Taskleiste

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Code: [Cc][+][-] Option Explicit Private Declare PtrSafe Function ShowWindow Lib "user32.dll" ( _ ByVal hwnd As LongPtr, _ ByVal nCmdShow As Long) As Long Private Declare PtrSafe Function FindWindowA Lib "user32.dll" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As LongPtr Private Declare PtrSafe Function GetSystemMetrics Lib "user32.dll" ( _ ByVal nIndex As Long) As Long Private Const GC_CLASSNAMETASKBAR As String = "Shell_TrayWnd" Private Const SW_HIDE As Long = 0& Private Const SW_SHOW As Long = 5& Private Const SM_CXSCREEN As Long = 0& Private Const SM_CYSCREEN As Long = 1& Public Sub ShowNormal() Dim lngptrHwnd As LongPtr lngptrHwnd = FindWindowA(GC_CLASSNAMETASKBAR, vbNullString) Call ShowWindow(lngptrHwnd, SW_SHOW) Application.WindowState = xlMaximized End Sub Public Sub ShowMaximize() Dim lngptrHwnd As LongPtr lngptrHwnd = FindWindowA(GC_CLASSNAMETASKBAR, vbNullString) Call ShowWindow(lngptrHwnd, SW_HIDE) With Application .WindowState = xlNormal .Left = 0 .Top = 0 .Width = GetSystemMetrics(SM_CXSCREEN) .Height = GetSystemMetrics(SM_CYSCREEN) End With End Sub

Oooooooooooooops,
ich sehe gerade Excel 2007, dann so:

Code:


[Cc][+][-]

Option Explicit

Private Declare  Function ShowWindow Lib "user32.dll" ( _
        ByVal hwnd As Long, _
        ByVal nCmdShow As Long) As Long
Private Declare  Function FindWindowA Lib "user32.dll" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long
Private Declare  Function GetSystemMetrics Lib "user32.dll" ( _
        ByVal nIndex As Long) As Long

Private Const GC_CLASSNAMETASKBAR As String = "Shell_TrayWnd"

Private Const SW_HIDE As Long = 0&
Private Const SW_SHOW As Long = 5&

Private Const SM_CXSCREEN As Long = 0&
Private Const SM_CYSCREEN As Long = 1&

Public Sub ShowNormal()
  Dim lngptrHwnd As Long

  lngptrHwnd = FindWindowA(GC_CLASSNAMETASKBAR, vbNullString)
  Call ShowWindow(lngptrHwnd, SW_SHOW)
  Application.WindowState = xlMaximized
End Sub

Public Sub ShowMaximize()
  Dim lngptrHwnd As Long

  lngptrHwnd = FindWindowA(GC_CLASSNAMETASKBAR, vbNullString)
  Call ShowWindow(lngptrHwnd, SW_HIDE)
  With Application
      .WindowState = xlNormal
      .Left = 0
      .Top = 0
      .Width = GetSystemMetrics(SM_CXSCREEN)
      .Height = GetSystemMetrics(SM_CYSCREEN)
  End With
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread