HERBERS Excel-Forum - die Beispiele

Thema: Bildschirmauflösung auslesen

Home

Gruppe

API

Problem

Wie kann ich die aktuelle Bildschirmauflösung ermitteln?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, _
    ByVal nIndex As Long) As Long
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, _
    ByVal hdc As Long) As Long

Const HORZRES = 8
Const VERTRES = 10

Function ScreenResolution()
   Dim lRval As Long
   Dim lDc As Long
   Dim lHSize As Long
   Dim lVSize As Long
   lDc = GetDC(0&)
   lHSize = GetDeviceCaps(lDc, HORZRES)
   lVSize = GetDeviceCaps(lDc, VERTRES)
   lRval = ReleaseDC(0, lDc)
   ScreenResolution = lHSize & "x" & lVSize
End Function

Sub GetScreenSize()
   MsgBox ScreenResolution()
End Sub

Beiträge aus dem Excel-Forum zu den Themen API und System

Excel to Word Kapitel VBA Anfangskapital berechnen
Gestapelte Säulen-Diagramm: Ich kapier's nicht Googel Maps API in Excel VBA einfügen
Private Const CheckCell_1 = "System!AI9" Problem mit dem Rang-System
Berechnung vom Endkapital Systemp-Variable benötigt
Netzwerkpfad per FileSystemObject wechseln GetSystemMetrics
API? - xl-Parameter aus Long-Wert bestimmen Berechnung Kapitalanlage
System Variablen mit Excel auslesen Telefonnummer auslesen per TAPI
Schichtsystem im Kalender Läuft RSAPI.DLL mit WIN2000 und XP?
Auslesen Systemdaten, Zellschutz und Counter Systemauslastung mitloggen
JAVA API mit VBA verwenden Kurzzeitig steuerung des Systems übernehmen
Daten aus einer Tabelle auslesen-Koordinatensystem Systemunabhängige Email an mehrere Empfänger
fs - system (filesearch) Abfrage, ob Outlook oder Lotus Notes Mailsystem
Schichtsystem Systemvariable - Benutzername auslesen
PageSetup - absolute Systemauslastung Windows Systeminfo
Papierformat speichern FileSystemObject Frage
Kassensystem mit excel Excel -mangelnde Systemresourcen
Kleines Lager/Kassensystem verschiedene Papierquele beim Drucken
Entnahme mit Kapitalverzehr Berechnung Endkapital / Zinsen
Mehrfachberechnung linearesGleichungssystem-Solver Druck auf Papier und PDF mit und ohne Logo
Frage zur RSAPI.DLL Kombination Seitenumbruch Papierformat Anpassen
Koordinatensystem mit 4 Quadranten Kein Download wenn Betriebssystem Vista ist
Hilfe bei der Fehlersuche (API) Frage zu XKAPITALWERT
API-Zugriff Endkapital? bei unterschiedlichen Zahlungen
Handelssystem API für Tastaturpuffer auslesen
API für Tastaturpuffer auslesen Koordinatensystem definieren