Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
472to476
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
472to476
472to476
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bildschirmauflösung

Bildschirmauflösung
21.08.2004 13:17:12
Wolfgang
Hallo,
ich möchte gerne die Bildschirmauflösung abfragen und darauf in meinem VBA-Code reagieren. Kann jemand helfen?
Danke
Wolfgang

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

Betreff
Datum
Anwender
Anzeige
AW: Bildschirmauflösung
andreas
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
Anzeige
AW: Bildschirmauflösung
21.08.2004 14:53:59
Wolfgang
Spitze!
Vielen Dank!

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige