Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
156to160
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
156to160
156to160
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige