ist es möglich, über VBA die Monitorauflösung bzw. die Farbauflösung auszulesen ?
Gruss
Stefan
ist es möglich, über VBA die Monitorauflösung bzw. die Farbauflösung auszulesen ?
Gruss
Stefan
das Problem hat Hans W. Herber schon mal so gelöst (für die vertikale und horizontale Bildschirmauflösung), und es funktioniert:
Public Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hcd As Long) As Long
Public lHsize As Long, lVsize As Long
Const HORZRES = 8
Const VERTRES = 10
Function ScreenResolution()
' lHsize = Anzahl der horizontalen Bildschirmzeilen
' lVsize = Anzahl der vertikalen Bildschirmzeilen
Dim lRval As Long
Dim lDc As Long
lDc = GetDC(0&)
lHsize = GetDeviceCaps(lDc, HORZRES)
lVsize = GetDeviceCaps(lDc, VERTRES)
lRval = ReleaseDC(0, lDc)
End Function
danke für den Tipp, funktioniert !
Gruss
Stefan