Microsoft Excel

Herbers Excel/VBA-Archiv

Function Windows Taskleiste ausblenden

Betrifft: Function Windows Taskleiste ausblenden von: Dr.
Geschrieben am: 01.09.2004 11:48:53

Hallo Experten,

vor kurzem hat mir (K.Rola?) jemand eine prächtige Funktion zum Ausblenden der Windows Taskleiste formuliert:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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
Dim hWnd As Long

Dies zusammen mit

'Ausblenden
hWnd = FindWindow("Shell_TrayWnd", "")
Call SetWindowPos(hWnd, 0, 0, 0, 0, 0, 128)

und

'Einblenden
hWnd = FindWindow("Shell_TrayWnd", "")
Call SetWindowPos(hWnd, 0, 0, 0, 0, 0, 64)

funktioniert auch durch Einbinden in DieseArbeitsmappe hervorragend.

Nun zu meinem Probblem:
das ebtsprechende Worksheet arbeitet im Fullscreen und ich habe mir für Anpassungsarbeiten zwei Hotkeys eingerichtet, die zur Normalansicht zurücksetzen bzw. den Fullscreen wiederherstellen. Jetzt hätte ich die API-Funktion für die Windows-Taskleiste auch dort gerne eingebaut, aber meine bisherigen Versuche, die in dem entsprechenden Sub einzubinden, sind leider fehlgeschlagen.

Hat jemand eine Idee?

Danke und Gruss,

Dr.

  


Betrifft: AW: Function Windows Taskleiste ausblenden von: Basti
Geschrieben am: 01.09.2004 13:00:54

aehm wieso machst du das bitte mit VBA???


  


Betrifft: AW: Function Windows Taskleiste ausblenden von: Dr.
Geschrieben am: 01.09.2004 13:01:57

Hi, hast Du eine Lösung ohne VBA? Immer her damit! ;-)


  


Betrifft: offen von: Dr.
Geschrieben am: 01.09.2004 14:09:37

.


  


Betrifft: AW: offen von: Nepumuk
Geschrieben am: 01.09.2004 18:01:54

Hallo ?,
meist du so?

https://www.herber.de/bbs/user/10414.xls

Gruß
Nepumuk


 

Beiträge aus den Excel-Beispielen zum Thema "Function Windows Taskleiste ausblenden"