Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
156to160
156to160
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bildschirmauflösung

Forumthread: Bildschirmauflösung

Bildschirmauflösung
09.09.2002 16:46:52
Walter MB
Hallo,
habe eine schwierige Frage:
Kann man imVb-Makro in Excel 7 geschrieben veranlassen das
die Bildschirmauflösung abgefragt und evtl verändert wird ?
(z.B. von 1024 x 768 auf 800 x 600 )

So das ein selbsterstelltes Dialog in Excel 7 sich entsprechend
anpasst ?

P.S. habe am Schluß im Makro die Zeile:
Application.Visible = True
für das Ausblenden von Excel eingesetzt, funktioniert auch !

Gruss Walter

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: Bildschirmauflösung
09.09.2002 18:04:47
GraFri
Hallo

Hab ich mal irgendwo gefunden. Vielleicht kannst du es gebrauchen.
Alles in ein Modul.

End Type

Private Const HORZRES As Long = 8
Private Const VERTRES As Long = 10

' ---------------------------------------------------------
' Aktuelle Bildschirmauflösung ermitteln
'
Sub Auflösung_ermitteln()
Dim Antwort
Dim Text1, Text2, Titel As String

Text1 = "Die horizontale Auflösung beträgt: "
Text2 = "Die vertikale Auflösung beträgt: "

Titel = "Bildschirmauflösung"

Call Auflösung

Antwort = MsgBox(Text1 & Auflösung.X & " Pixel" & vbCrLf & vbCrLf & _
Text2 & Auflösung.Y & " Pixel", vbOKOnly, _
"Bildschirmauflösung")

End Sub

Public Function Auflösung() As currRes
Dim hdc, hwnd, retval As Long

hwnd = GetDesktopWindow 'Desktop-Handle ermitteln

hdc = GetDC(hwnd) 'Desktop-device-context ermitteln

Auflösung.X = GetDeviceCaps(hdc, HORZRES) 'horizontale Auflösung ermitteln und zurückgeben
Auflösung.Y = GetDeviceCaps(hdc, VERTRES) 'vertikale Auflösung ermitteln und zurückgeben

retval = ReleaseDC(hwnd, hdc) ' device-context freigeben
End Function
'
' ---------------------------------------------------------

mfg, GraFri

Anzeige
Re: Bildschirmauflösung
09.09.2002 19:14:43
Walter MB
Hallo GraFri,
herzlichen Dank für die Hilfe, werde es morgen testen
melde mich später um es geklappt hatt
Gruss walter
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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