title image


Smiley Re: VBA EXCEL97: Bildschirmauflösung abfragen
Hallo Georg



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




 http://hajo-excel.de/fragen_wie_1.htm

Betriebssystem: Windows 10, Office 2016 32 bit. Bitte Version angeben. Bei keiner Angabe wird von meiner  ausgegangen.Mails nur nach Aufforderung.



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: