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
Anzeige