Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1792to1796
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Anwendung minimieren

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
Anzeige
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

Anzeige
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

Anzeige
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige