Userform an Zellen ausrichten

Hallo
ich hätte zwei Fragen zum Thema Positionierung einer Userform auf dem Bildschirm.
1. Problem: ich möchte erreichen, daß beim Start der UF die linke obere Ecke innerhalb der Zelle K3 liegt unabhängig von Fenstergrößen, Scrollpositionen, Bildschirmauflösungen, Spaltenbreiten usw.
Das Problem daran ist, daß ich mit Range("k3").top / .left nur die relative Positionierung innerhalb des Excelsheets bekomme, sich die Positionierung der Userform aber auf die tatsächlichen Bildschirmpixel bezieht.
Daß heißt, ich benötige die absolute Positionierung der Zelle K3 auf dem Bildschirm
(vorausgesetzt, die Zelle ist überhaupt sichtbar, aber daß läßt sich prüfen.)
gibt es eine Mehode, diese zu ermitteln?
2. Problem : die Positionierung soll bei einer großem Auflöung anders reagieren als bei einer niedrigen.
Wie kann ich am elegantesten die aktuelle Bildschirmauflösung ermitteln?
Gruß, Daniel Eisert

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Declare Function GetDesktopWindow Lib "user32" () As Long Private Declare Function GetWindowRect Lib "user32" ( _ ByVal hwnd As Long, _ lpRect As RECT) _ As Long Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Sub aufruf() Dim Dhwnd As Long Dim R As RECT Dim wX As Long Dim wY As Long 'Den Desktop finden Dhwnd = GetDesktopWindow 'Die Desktopausmaße auslesen GetWindowRect Dhwnd, R MsgBox R.Right & " x " & R.Bottom, 64, "Aktuelle Bildschirmauflösung:" End Sub

Hallo
danke für den Tip, über die Seite bin ich auch schon mal gestolpert, aber das Thema war mir zu komplex.
Inzwischen habe ich einen Weg gefunden, der eher meinem Kenntnisstand entspricht:
- Application.fullscreen = true
setzen und mit
- application.width
die Breite auslesen. von diesem Wert muß man noch den überstehenden Rand (bei mir 6 Pixel) abziehen und daß ganze mit 4/3 multipliziern, dann hat man auch die Bildschirmbreite. Miz der Höhe gehts änlich, allerdings beeinflusst die Taskleiste von Windows das Ergebnis.
Aber falls noch jemad weiß, ob man daß nicht doch mit einer "einfachen" Funktion abfragen kann, wäre ich natürlich Dankbar. (ich denke da an ENVIRON oder so was ähnlichen)
Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

260 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Userform an Zellen ausrichten

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

260 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread