Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
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)

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