Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bildschirmauflösung auslesen

Forumthread: Bildschirmauflösung auslesen

Bildschirmauflösung auslesen
05.10.2008 17:34:00
Polarfuchs
Hallo Ihr Checker,
gibt es eine Möglichkeit mittels einer Sub die Eingestellte Bildschirmauflösung des Monitors zu ermitteln?
Für einen Tipp wäre ich sehr dankbar.
Ciao Polarfuchs
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bildschirmauflösung auslesen
05.10.2008 17:44:00
OttoH
Hallo Polarfuchs,
ich habe mal folgendes gefunden:
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ß OttoH

Anzeige
ich kriegs nicht hin
05.10.2008 18:56:00
Polarfuchs
Hallo OttoH,
danke für den Tipp. Ich habe das mal so in eine Sup kopiert und bekomme immer folgende Fehlermeldung:
"Konstanten, Zeichenfolgen fester Länge, benutzerdefinierte Datenfelder und Declare- Anweisungen sind als Public-Elemente von Objektmethoden nicht zugelassen."
Ich habe schon alles mögliche probiert, krieg es aber nicht hin.
Ciao Polarfuchs :-))
Anzeige
AW: ich kriegs nicht hin
05.10.2008 19:01:35
Tino
Hallo,
zeige mal Dein !!! Modul !!! mit dem Code wo Du diese Zeilen eingefügt hasst.
Gruß Tino
Jetzt hab ich es gecheckt
05.10.2008 19:08:00
Polarfuchs
Hallo Ihr Checker.
habe es versehentlich nicht in ein Modul kopiert. Jetzt funktioniert es.
Danke vielmals
Ciao Polarfuchs :-))
;
Anzeige
Anzeige

Infobox / Tutorial

Bildschirmauflösung in Excel ermitteln


Schritt-für-Schritt-Anleitung

Um die Bildschirmauflösung deines Monitors in Excel auszulesen, musst du ein kleines VBA-Skript verwenden. Folge diesen Schritten:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke im Menü auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Kopiere und füge den folgenden Code in das Modul ein:

    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
  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Drücke ALT + F8, wähle Main aus der Liste und klicke auf Ausführen, um die Bildschirmauflösung anzuzeigen.


Häufige Fehler und Lösungen

Wenn du auf Probleme stößt, hier einige häufige Fehler und deren Lösungen:

  • Fehlermeldung: "Konstanten, Zeichenfolgen fester Länge, benutzerdefinierte Datenfelder und Declare-Anweisungen sind als Public-Elemente von Objektmethoden nicht zugelassen."

    • Lösung: Stelle sicher, dass der Code in einem Modul und nicht in einer Klasse oder einem Arbeitsblatt eingefügt wird. Du musst es in ein Modul kopieren.
  • Der Code läuft nicht oder gibt keine Ergebnisse zurück.

    • Lösung: Überprüfe, ob die Declare Function-Anweisung korrekt ist und dass du die richtigen Berechtigungen hast, um VBA auszuführen.

Alternative Methoden

Neben VBA gibt es auch andere Möglichkeiten, die Bildschirmauflösung abzurufen:

  • Windows Systeminformationen: Drücke Windows + R, gib msinfo32 ein und suche dort nach den Anzeigeinformationen.
  • Dritte-Software-Tools: Es gibt verschiedene Tools, die detaillierte Informationen über die Bildschirmauflösung bereitstellen können. Diese sind oft benutzerfreundlicher, erfordern jedoch zusätzliche Softwareinstallation.

Praktische Beispiele

Hier sind einige Beispiele, wie du die Bildschirmauflösung weiter nutzen kannst:

  • Dynamische Anpassung von Excel-Diagrammen: Du kannst die Auflösung nutzen, um die Größe von Diagrammen oder Tabellenblättern anzupassen.
  • Automatisierte Berichte: Verwende die Bildschirmauflösung, um Berichte zu erstellen, die sich automatisch an die Bildschirmgröße anpassen, wenn sie auf unterschiedlichen Geräten angezeigt werden.

Tipps für Profis

  • Code optimieren: Du kannst den Code erweitern, um zusätzlich Informationen wie die Farbtiefe oder die DPI des Bildschirms auszulesen.
  • Fehlerbehandlung: Füge Fehlerbehandlungsroutinen hinzu, um sicherzustellen, dass dein VBA-Code robust ist und keine unerwarteten Abstürze verursacht.
  • Verwendung von UserForms: Baue ein UserForm in VBA, um die Anzeige der Bildschirmauflösung ansprechender zu gestalten.

FAQ: Häufige Fragen

1. Kann ich den Code auch in Excel Online verwenden?
Der VBA-Code funktioniert nur in der Desktop-Version von Excel, nicht in Excel Online.

2. Ist es sicher, VBA in Excel zu verwenden?
Ja, solange du nur vertrauenswürdige Skripte verwendest. Vermeide es, unbekannte Codes aus dem Internet zu verwenden, um Sicherheitsrisiken zu minimieren.

3. Funktioniert dieser Code auf allen Windows-Versionen?
Der Code sollte auf den meisten aktuellen Windows-Versionen funktionieren, solange VBA unterstützt wird.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige