Excel (VBA): Bildschirmauflösung auslesen

2010-02-20 von Mario

Für ein VBA-Script habe ich die aktuelle Bildschirmauflösung benötigt. Die implementierte Funktion sieht wie folgt aus.

Option Explicit
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()
 
    Dim x As Integer
    Dim y As Integer
 
    x = GetSystemMetrics(SM_CXSCREEN)
    y = GetSystemMetrics(SM_CYSCREEN)
 
   ScreenResolution = x & " : " & y
 
End Function

Hier eine Beispieldatei zum Download: Example File

Kategorie: IT Schlagwörter: Excel, IT, VBA