VBA Tipp: Bildschirmauflösung ermitteln

Aus DBWiki
Wechseln zu: Navigation, Suche

Problem

Wie ermittle ich die aktuell eingestellte Bildschirmauflösung in Pixeln?

Lösung

Das geht über die API:

Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1
Private Declare Function GetSystemMetrics Lib "user32" _
  (ByVal nIndex As Long) As Long
 
Public Function ScreenResolution()
  ScreenResolution = GetSystemMetrics(SM_CXSCREEN) & _
    "x" & GetSystemMetrics(SM_CYSCREEN)
End Function

Aufruf

Die Funktion kann man dann z.B. so verwenden:

ScreenResolution()
' Rückgabe:
1024x768