Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
648to652
648to652
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fenster anderer Anwendungen

Forumthread: Fenster anderer Anwendungen

Fenster anderer Anwendungen
08.08.2005 17:55:49
RALF
Hallo zusammen,
wie stelle ich es sinnvoll an, auf Fenster anderer Anwendungen als Excel zuzugreifen?
Bsp.: Fenstergröße und -position einer Anwendung verändern.
Danke und Gruß
RALF
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fenster anderer Anwendungen
09.08.2005 15:17:05
Galenzo
z.B. so:

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
Declare 


Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long


Sub test()
Const LEFT As Long = 100
Const TOP As Long = 200
Const HEIGTH As Long = 600
Const WIDTH As Long = 100
Dim hwnd  As Long
'NotePad starten
Result = Shell("notepad.exe", vbNormalFocus)
'Handle von Notepad auslesen
hwnd = FindWindow(vbNullString, "Unbenannt - Editor")
Call SetWindowPos(hwnd, 0, LEFT, TOP, WIDTH, HEIGTH, 0&)
End Sub

(zwischen Declar und 

Function KEINEN Zeilenumbruch, sondern nur ein Leerzeichen. Keine Ahnung, warum das hier bei der Eingabe immer abgeändert wird)
Viel Erfolg!
Anzeige
DANKE - PASST PERFEKT (o.T)
11.08.2005 13:55:58
RALF
DANKE - PASST PERFEKT
Gruß RALF
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige