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
484to488
484to488
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatischer Zoom

Forumthread: Automatischer Zoom

Automatischer Zoom
20.09.2004 11:29:29
Bello
Hallo Forum,
ich habe eine Datei die aus dem Netzwerk von mehreren Rechnern genutzt wird.
Jeder dieser Rechner hat eine unterschiedliche Bildschirmauflösung.
Ist es möglich mit Hilfe eines Codes die Zoomgrösse automatisch der Bildschirmauflösung
anzupassen?
Danke für die mögliche Hilfe.
Gruß Bello
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatischer Zoom
OttoH
Hallo Bello,
mit folgendem Programm kannst Du schon mal die Auflösung ermitteln:
Option Explicit
Declare 

Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, _
ByVal nIndex As Long) As Long
Declare 


Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare 


Function ReleaseDC Lib "user32" (ByVal hwnd As Long, _
ByVal hdc As Long) As Long
Const HORZRES = 8
Const VERTRES = 10


Function ScreenResolution()
Dim lRval As Long
Dim lDc As Long
Dim lHSize As Long
Dim lVSize As Long
lDc = GetDC(0&)
lHSize = GetDeviceCaps(lDc, HORZRES)
lVSize = GetDeviceCaps(lDc, VERTRES)
lRval = ReleaseDC(0, lDc)
ScreenResolution = lHSize & "x" & lVSize
End Function





Sub GetScreenSize()
MsgBox ScreenResolution()
End Sub



Gruß OttoH
Anzeige
AW: Automatischer Zoom
20.09.2004 12:21:59
Bello
Hallo Otto,
ich habe dein Code eingefügt und der funzt irgentwie nicht!
Beschreibe mir bitte wie genau ich den einfügen Muss, ich htte ihn
in ein normales Modul eingefügt und da waren einige Zeilen Rot markiert!
Nur die Auflösung zu ermitteln bringt mich ja auch nicht weiter oder?
Oder hast Du da eine Idee?
Gruss Bello
Anzeige
AW: Automatischer Zoom
OttoH
Hallo Bello,
erweitere das eine Programm wie folgt:

Sub GetScreenSize()
MsgBox ScreenResolution()
If ScreenResolution = "1280x1024" Then
ActiveWindow.Zoom = 100
ElseIf ScreenResolution = "1280x1024" Then
ActiveWindow.Zoom = 75
End If
End Sub

Hier müssen noch alle bekannten Auflösungen eingefügt werden, dann sollte es klappen.
Gruß OttoH
Anzeige
;

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