Fensterposition ermitteln

Forumthread: Fensterposition ermitteln

marspoki

Hallo,
ich habe mal eine Frage. Gibt es eine Möglichkeit die Aktuelle Fensterposition eines Programms (z.B. Word) auszulesen und diese dann in A1 und B1 einzutragen?
Vielen Dank für eure Hilfe
Gruß
marspoki

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Fensterposition ermitteln

13.01.2010 14:16:20

Björn

Hallo,
ich weiß nicht genau wie es geht, du kannst aber über Application die Eigenschaften Left und Top abfragen bzw. setzen.
Das gibt dann den Abstand zur linken oberen Ecke an.
Gruß
Björn B.

AW: Fensterposition ermitteln

13.01.2010 14:24:21

marspoki

Vielen Dank
Leider weiß ich nicht wie man das macht? :-(
Hat jemand einen Rat

AW: Fensterposition ermitteln

13.01.2010 14:36:44

marspoki

Nur noch vorab.
Ich hole mir das Fenster mit folgendem Code in Vordergrund
Option Explicit
Option Explicit
Private Declare Function SetForegroundWindow _
Lib "user32" ( _
ByVal hwnd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetWindowTextLength Lib "user32" _
Alias "GetWindowTextLengthA" (ByVal hwnd As Long) _
As Long
Private Declare Function GetWindowText Lib "user32" _
Alias "GetWindowTextA" _
(ByVal hwnd As Long, ByVal lpString As String, _
ByVal cch As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hwnd As Long, ByVal wIndx As _
Long) As Long
Private Declare Function ShowWindow Lib "user32" ( _
ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Private Declare Function GetWindow Lib "user32" _
(ByVal hwnd As Long, ByVal wCmd As Long) As Long
Const GWL_STYLE& = (-16)
Const WS_VISIBLE = &H10000000
Const WS_BORDER = &H800000
Const GW_HWNDNEXT& = 2
Const GW_CHILD& = 5
Const iNormal& = 1
Const iMinimized& = 2
Const iMaximized& = 3
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Sub mouse_event Lib "user32.dll" _
(ByVal dwFlags As Long, ByVal dx As Long, _
ByVal dy As Long, ByVal dwdata As Long, _
ByVal dwExtraInfo As Long)
Private Declare Function SetCursorPos Lib "user32" _
(ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" _
(lpPoint As Maus_Pos) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Type Maus_Pos
X As Long
Y As Long
End Type

Private Function GetWindowInfo(ByVal hwnd&, STitel$, Optional booVisible As Boolean = True) As _ Long Dim Result&, Style&, Title$ 'Darstellung des Fensters Style = GetWindowLong(hwnd, GWL_STYLE) Style = Style And (WS_VISIBLE Or WS_BORDER) 'Fensetrtitel ermitteln Result = GetWindowTextLength(hwnd) + 1 Title = Space$(Result) Result = GetWindowText(hwnd, Title, Result) Title = Left$(Title, Len(Title) - 1) 'prüfen ob Fenster Sichtbar If (Style = (WS_VISIBLE Or WS_BORDER)) Or booVisible = False Then If Title Like "*" & STitel & "*" Then GetWindowInfo = hwnd Exit Function End If End If GetWindowInfo = 0 End Function

Sub FensterHolen()
Dim hwnd As Long
Dim STitel As String
'hier einen Teil vom Titel angeben ******************
STitel = "Microsoft Word"
hwnd = GetDesktopWindow()
hwnd = GetWindow(hwnd, GW_CHILD)
'2. Param. Fenstertitel (nur ein Teil erforderlich)
'3. Param. optional True nur Sichtbare, False alle
GetWindowInfo hwnd, STitel, True
Do While hwnd 0
hwnd = GetWindow(hwnd, GW_HWNDNEXT)
If GetWindowInfo(hwnd, STitel, True) = hwnd Then
ShowWindow hwnd, iNormal 'maximieren
SetForegroundWindow hwnd 'aktivieren
End If
Loop
End Sub

AW: Fensterposition ermitteln

13.01.2010 14:37:16

marspoki

Hat jemand eine idee? Vielen Dank

AW: Fensterposition ermitteln

15.01.2010 07:07:40

Anton

Hallo marspoki,
probier's hiermit:

Code:

Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Sub fensterposition_auslesen()
Dim Rec As RECT
Shell "winword", vbNormalFocus
GetWindowRect GetForegroundWindow, Rec
MsgBox "Links:" & Rec.Left & vbCr & _
"Oben:" & Rec.Top & vbCr & _
"Rechts:" & Rec.Right & vbCr & _
"Unten:" & Rec.Bottom
End Sub

mfg Anton

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um die aktuelle Fensterposition eines Programms wie Microsoft Word in Excel auszulesen und in die Zellen A1 und B1 einzutragen, kannst Du folgenden VBA-Code verwenden:

Öffne Excel und gehe zum VBA-Editor: Drücke ALT + F11.
Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf ein Projekt im Projekt-Explorer, wähle Einfügen und dann Modul.

Kopiere den folgenden Code in das Modul:

Private Type RECT
   Left As Long
   Top As Long
   Right As Long
   Bottom As Long
End Type

Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long

Sub Fensterposition_auslesen()
   Dim Rec As RECT
   Dim hwnd As Long

   hwnd = GetForegroundWindow()
   GetWindowRect hwnd, Rec

   ' Werte in die Zellen A1 und B1 eintragen
   Range("A1").Value = Rec.Left
   Range("B1").Value = Rec.Top
End Sub

Führe das Makro aus: Drücke F5 oder gehe zu Run > Run Sub/UserForm, um den Code auszuführen.

Nun werden die Positionen des aktiven Fensters in die Zellen A1 und B1 eingetragen.

Häufige Fehler und Lösungen

Fehler: "Berechtigungsprobleme": Stelle sicher, dass Du die Makros in Excel aktiviert hast. Gehe zu Datei > Optionen > Trust Center > Einstellungen für das Trust Center > Makroeinstellungen und aktiviere die Option für Makros.
Fehler: "Fenster nicht gefunden": Achte darauf, dass das gewünschte Fenster (z.B. Microsoft Word) aktiv ist, wenn Du das Makro ausführst.

Alternative Methoden

Eine weitere Möglichkeit, die Fensterposition zu ermitteln, ist die Verwendung des Application Objekts, um die Eigenschaften Left und Top auszulesen. Dieser Ansatz ist jedoch weniger direkt und funktioniert nur für Excel-Fenster.

Praktische Beispiele

Hier ist ein Beispiel, wie Du den oben genannten Code anpassen kannst, um die Fensterposition von anderen Programmen zu ermitteln:

Sub FensterHolen()
    Dim hwnd As Long
    Dim STitel As String
    STitel = "Microsoft Word"

    ' Hier kannst Du den Titel des Fensters anpassen, je nach Bedarf
    hwnd = GetForegroundWindow()
    Dim Rec As RECT
    GetWindowRect hwnd, Rec

    ' Werte in die Zellen A1 und B1 eintragen
    Range("A1").Value = Rec.Left
    Range("B1").Value = Rec.Top
End Sub

Tipps für Profis

Anpassung der Fenstererkennung: Du kannst die Funktion GetWindowInfo erweitern, um nach spezifischen Fenstern zu suchen, indem Du Teile des Fenstertitels anpasst.
Fehlerbehandlung: Implementiere Fehlerbehandlungsroutinen, um mögliche Laufzeitfehler abzufangen.

FAQ: Häufige Fragen

1. Frage
Wie kann ich den Code anpassen, um die Fensterposition von anderen Anwendungen zu ermitteln?
Antwort: Du musst den Titel des Fensters in der Variable STitel ändern. Ersetze "Microsoft Word" durch den Titel des gewünschten Fensters.

2. Frage
Funktioniert dieser Code in Excel für Mac?
Antwort: Leider funktioniert dieser Code nicht auf Mac, da die API-Funktionen, die verwendet werden, spezifisch für Windows sind.

3. Frage
Wie kann ich die Fensterposition automatisch alle paar Sekunden aktualisieren?
Antwort: Du kannst eine Schleife mit einer Sleep-Funktion verwenden, um den Code regelmäßig auszuführen. Achte darauf, dass dies die Performance beeinträchtigen kann.

Beliebteste Forumthreads (12 Monate)

Forumthread: Fensterposition ermitteln

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Fensterposition in Excel ermitteln

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread