Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Bildschirmauflösung

Betrifft: Bildschirmauflösung von: Wolfgang
Geschrieben am: 21.08.2004 13:17:12

Hallo,

ich möchte gerne die Bildschirmauflösung abfragen und darauf in meinem VBA-Code reagieren. Kann jemand helfen?

Danke
Wolfgang

  


Betrifft: AW: Bildschirmauflösung von: andreas e
Geschrieben am: 21.08.2004 13:20:28

hallo wolfgang,
stammt soweit ich weiss von Hajo

Option Explicit
Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1
Declare
Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Public 
Sub Main()
Dim gWidth As Integer, gHeight As Integer
gWidth = GetSystemMetrics(SM_CXSCREEN)
gHeight = GetSystemMetrics(SM_CYSCREEN)
MsgBox "Bildschirmbreite: " & Chr(9) & gWidth & Chr(13) & "Bildschirmhöhe: " & Chr(9) & gHeight
End Sub


gruß
andreas e
http://www.skripteundaufgaben.de


  


Betrifft: AW: Bildschirmauflösung von: Wolfgang
Geschrieben am: 21.08.2004 14:53:59

Spitze!
Vielen Dank!