Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
484to488
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
484to488
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige