Excel in den Vordergrund
21.12.2004 09:41:29
Stefan
da ich Excel aus einer anderen Anwendung heraus öffne und Prozeduren ablaufen lasse, soll Excel bevor die Prozeduren ablaufen in den Vordergrund geschoben werden.
Folgenden Code habe ich schon gefunden und auch - mehr oder weniger - erfolgreiche eingesetzt.Während die Prozeduren ablaufen, erscheint auf der Oberfläche ein Verlaufsbalken. Dieser wird mir schon in der linken oberen Ecke angezeigt und nicht wie gewünscht zentriert. Die Excel-Arbeitsmappe wird mir zum Schluss nicht als vollständiges Fenster, sondern minimiert - ebenfalls oben links - angezeigt.
Wie kann ich sowohl den Verlaufsbalken (ein Formular) als auch die Arbeitsmappe in original Größe und Position bringen.
Für jede Hilfe bin ich dankbar.
Grüße Stefan
Private Declare
Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare
Sub 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)
Public
Sub test()
Dim hWnd As Long
hWnd = FindWindow("xlMain", vbNullString)
SetWindowPos hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOACTIVATE
End Sub
Anzeige