title image


Smiley Re: Bildschirmauflösung
Hi Ferdinand,



vielleicht hilft dir dieser Code weiter, mit dem der Arbeitsmappenzoom beim Öffnen der Arbeitsmappe an die Bildschirmauflösung angepasst wird



Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Function setzoom()

'Die Werte hinter .Zoom den eigenen Bedürfnissen anpassen

Select Case GetSystemMetrics(0)

'Bildschirmauflösung

'1600*1200

Case 1600

setzoom = 175

'1280*1024 - 140 angepasst

Case 1280

setzoom = 140

'1152*864

Case 1152

setzoom = 126

'1024*768

Case 1024

setzoom = 112

'848*480

Case 848

setzoom = 93

'800*600

Case 800

setzoom = 87

'768*576

Case 768

setzoom = 84

'720*480

Case 720

setzoom = 82

'640*480

Case 640

setzoom = 78

End Select

End Function



Diesen Code in ein Modul und unter DieseArbeitsmappe in das Workbook_Open Ereignis den Namen der Funktion - setzoom - reinschreiben

GrußformelBeverly's Excel - Inn

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: