Anwendung minimieren

Forumthread: Anwendung minimieren

13.11.2020 23:26:27

reiner

Hallo Leute,
ich suche nach einer Möglichkeit eine Anwendung z:b. WORSD mittels Sendkeys zu minimieren
hat jemand einen Tipp
mfg
reiner

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Anwendung minimieren

14.11.2020 08:20:10

Hajo_Zi
AW: Anwendung minimieren

14.11.2020 09:03:03

volti
AW: Anwendung minimieren

14.11.2020 11:49:09

reiner
AW: Anwendung minimieren

14.11.2020 12:07:11

onur
AW: Anwendung minimieren

14.11.2020 12:17:02

volti
Danke onur und volti

14.11.2020 12:31:26

reiner
AW: Danke onur und volti

14.11.2020 13:38:02

volti

AW: Anwendung minimieren

14.11.2020 08:20:10

Hajo_Zi

Hallo Reiner,
zeichne ein Makro auf und weise dabei eine Tastenkombination zu.

AW: Anwendung minimieren

14.11.2020 09:03:03

volti

Hallo Reiner,
SendKeys geht immer an die im Vordergrund liegende Anwendung.
Ich würde SendKeys für diese Aufgabe nicht verwenden.
Hier eine Alternative für das Minimieren einer Anwendung, die im Vordergrund liegt.
Kannst Du ja mal ausprbieren...

Code:
[Cc]

Option Explicit

Private Declare PtrSafe Function GetForegroundWindow Lib "user32" () As LongPtr
Private Declare PtrSafe Function ShowWindow Lib "user32" ( _
        ByVal hwnd As LongPtr, ByVal nCmdShow As Long) As Long

Private Const SW_MAXIMIZE = 3
Private Const SW_MINIMIZE = 6

Sub MinimiereAnwendung()
 ShowWindow GetForegroundWindow, SW_MINIMIZE
End Sub

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

AW: Anwendung minimieren

14.11.2020 11:49:09

reiner

hallo volti,
die beiden mit Private Declare PtrSafe Function beginnenden Zeilen werden rot hinterlegt und die Meldung Fehler beim Kompilieren erscheint.
Wenn ich sie auskommentiere und den Code starte erscheint die gleiche Fehlermeldung und GetForegroundWindow wird blau hinterlegt

AW: Anwendung minimieren

14.11.2020 12:07:11

onur

Wenn du Excel 32Bit hast, die Wörtchen "PtrSafe" weglassen und aus "LongPtr" "Long" machen.

AW: Anwendung minimieren

14.11.2020 12:17:02

volti

Sorry,
hatte übersehen, dass bei Dir ja "vor 2013" steht, also dann so, wie onur schon schrieb:

Code:
[Cc]

Option Explicit

Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function ShowWindow Lib "user32" ( _
        ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Const SW_MAXIMIZE = 3
Private Const SW_MINIMIZE = 6

Sub MinimiereAnwendung()
 ShowWindow GetForegroundWindow, SW_MINIMIZE
End Sub

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Danke onur und volti

14.11.2020 12:31:26

reiner

das Versionsproblem ist gelöst, aber WORD lässt sich mit der vorgeschlagenen Lösung nicht minimieren.
Ich ziehe hiermit meine Anfrage zurück und danke euch für die Beiträge.
mfg
reiner

AW: Danke onur und volti

14.11.2020 13:38:02

volti

Hallo Reiner,
trotz Deiner Zurückziehung, hier doch noch mal ein, zwei Gedanken zum Thema.
Auch Word lässt sich mit diese Methode minimieren, habe ich gerade nochmal gemacht.
Voraussetzung bei diesem Code ist allerdings, dass Word im Vordergrund steht.
Wenn Du das Makro z.B. bei offenen Editor mittels F5 oder durch "Ausführen" oder auch per Button auf einem Tabellenblatt startest, ist immer Excel im Vordergrund.
Deshalb kommt es darauf an, was Du da jetzt gemacht hast...
Das würde übrigens für SendKeys auch gelten.
Wenn Du Word minimieren möchtest und Word nicht im Vordergrund ist, geht das auch, aber mit etwas mehr Aufwand....
viele Grüße und ein schönes Wochennde
Karl-Heinz

Beliebteste Forumthreads (12 Monate)

Forumthread: Anwendung minimieren

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread