Herbers Excel-Forum - das Archiv
Taskleiste ausblenden
Betrifft: Taskleiste ausblenden
von: Peter S.
Geschrieben am: 03.12.2003 16:59:13
Hallo Leute,
mal wieder ne Frage.......normaler weise ist die Taskleiste auf "immer im Vordergrund" voreingestellt....nun habe ich ein Problemchen....ich habe per VBA folgendes einer Arbeitsmappe mitgegeben:
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
End Sub
und das funktioniert auch bestens...jedoch werden die Tabellenregister von der Taskleiste verdeckt, sofern diese auf "immer im Vordergrund" eingestellt ist.
Gibts ne Möglichkeit die Taskleiste automatisch auf "nicht immer im vordergrund" zu stellen?
danke
Peter
Betrifft: AW: Taskleiste ausblenden
von: GerdW
Geschrieben am: 03.12.2003 17:03:39
Ja, aber das geht nur über API- Funktionen, da das ein Windows- Problem ist.
Gerd
Betrifft: AW: Taskleiste ausblenden
von: Peter
Geschrieben am: 03.12.2003 17:09:51
Hallo Gerd,
vielen Dank...kannst du mir auch sagen wie ich das vornehme?
danke
Peter
Betrifft: AW: Taskleiste ausblenden
von: Nepumuk
Geschrieben am: 03.12.2003 17:44:18
Hallo Peter,
so geht's:
Option Explicit
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" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long
Const SWP_SHOWWINDOW = &H40
Const SWP_HIDEWINDOW = &H80
Public Sub Aus()
Ein_Aus SWP_HIDEWINDOW
End Sub
Public Sub Ein()
Ein_Aus SWP_SHOWWINDOW
End Sub
Private Sub Ein_Aus(Parameter As Long)
Dim Result As Long
Result = FindWindow("Shell_TrayWnd", "")
SetWindowPos Result, 0, 0, 0, 0, 0, Parameter
End Sub
Code eingefügt mit: Excel Code Jeanie
Gruß
Nepumuk