Microsoft Excel

Herbers Excel/VBA-Archiv

Windows Taskleistenproblem

    Betrifft: Windows Taskleistenproblem
    von: Oliver G
    Geschrieben am: 26.05.2003 - 14:57:30

    Hallo Cracks

    Vielleicht hat jemand eine Idee, die mein Problem lösen könnte:
    Untenstehender Script soll die Windows Taskleiste unsichtbar machen,
    resp. wieder sichbar machen. Klappt auch prima.

    Mich stört aber, dass nach ausführen des Scripts die Taskleiste selektiert bleibt, und so nicht direkt in Excel weitergearbeitet werden kann.

    Frage: Wie kann man den Script ergänzen mit einem Aktivieren des Excel-Programmes?

    Vielen Dank und Gruss
    Oliver G



    'Taskleiste ausblenden
    Option Explicit
    'Zunächst die benötigten API-Deklarationen
    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
    Private Const SWP_SHOWWINDOW = &H40
    Private Const SWP_HIDEWINDOW = &H80
    'Taskbar ausblenden
    Sub Hide()
    Dim hWnd As Long
    hWnd = FindWindow("Shell_TrayWnd", "")
    Call SetWindowPos(hWnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)

    End Sub
    'Taskbar einblenden
    Sub Show()
    Dim hWnd As Long
    hWnd = FindWindow("Shell_TrayWnd", "")
    Call SetWindowPos(hWnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)

    End Sub




      

    Re: Windows Taskleistenproblem
    von: klausimausi64
    Geschrieben am: 30.05.2003 - 06:47:42

    Hi Oliver,

    mir fällt nur

    AppActivate Application.Caption

    dazu ein.

    CU Klaus