Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1352to1356
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bildschirm abfragen

Bildschirm abfragen
31.03.2014 12:49:30
Franz
Hallo Fachleute,
ich nutze mit meinem Laptop mal den Laptopbildschirm, mal ist aber auch ein deutlich größerer Flatscreen angeschlossen. Dementsprechend muss auch der Zoomfaktor einiger Exceldateien ein anderer sein. Bislang stelle ich das immer händisch um. Lässt sich der jeweils bentutze Bildschirm z. B. bei "Activate" abfragen und entpsrechend dann den Zoom-Faktor anpassen?
Danke schonmal und Grüße
Franz

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bildschirm abfragen
31.03.2014 13:05:36
Hajo_Zi
Hallo Franz,
mit folgender Funktion bekommst Du die Auflösung raus.
Option Explicit
' von Andre bei Herber.de gepostet Quelle unbekannt
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)
ScreenResolution = "Vertikal " & lVsize & " Horizontal " & lHsize
End Function

Anzeige
AW: Bildschirm abfragen
31.03.2014 13:23:54
Franz
Danke Hajo!
Damit komm ich weiter.......
Grüße
Franz

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige