Office: Zoom automatisch an Auflösung PC anpassen

Moin moin aus dem hohen Norden,

ich habe eine Excel-Datei gestrickt, welche aus mehreren Arbeitsblättern besteht. Diese werden automatisch nach dem Start der Datei ausgeblendet, so das der Nutzer über eine individuelle RibbonX-Leiste die Funktionalitäten der Datei nutzen kann.

Beim Starten der Datei "landet" der Nutzer auf einer "Startseite", auf welcher lediglich eine Garfik hinterlegt ist. Da in unserem Haus verschiedene Grafikkarten und Bildschirme vorhanden sind, paßt sich die Startseite automatisch der individuellen PC-Auflösung an. Jedoch passt sich lediglich der Zoomfaktor (welcher sich auf die Zellen auswirkt) automatisch an.

Wie bekomme ich es hin, das auf jedem Bildschirm das gleiche "Bild" erscheint. Ich meine damit, wie passt sich Excel richtig an Auflösung des PC und entsprechenden Bildschirms an, das die hinterlegte Grafik überall zentrisch auf dem Bildschirm erscheint und nicht über den Rand hinaus geht (dies passiert bei Rechnern mit kleinerer Auflösung)?

Mein aktueller VBA-Code lautet so:

ThisWorkbook:
Option Explicit

Private Sub Workbook_Open()

'Automatische Einstellung des Zoomfaktors der Startseite (abhängig von der Auflösung) bei Start der Datei
Select Case Bildschirm
Case "1920x1080"
ActiveWindow.Zoom = 110
Case "1680x1050"
ActiveWindow.Zoom = 100
Case "1280x1024"
ActiveWindow.Zoom = 90
Case "1024x768"
ActiveWindow.Zoom = 85
Case Else
MsgBox "unbekannte Auflösung"
End Select
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

'Automatische Einstellung des Zoomfaktors der ausgeblendeten Seiten (abhängig von der Auflösung)
Select Case Bildschirm
Case "1920x1080"
ActiveWindow.Zoom = 110
Case "1680x1050"
ActiveWindow.Zoom = 100
Case "1280x1024"
ActiveWindow.Zoom = 90
Case "1024x768"
ActiveWindow.Zoom = 85
Case Else
MsgBox "unbekannte Auflösung"
End Select
End Sub

Modul1:
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

Declare Sub ShowWindow Lib "user32" _
(ByVal hWnd As Long, ByVal nCmdShow As Long)

Const HORZRES = 8
Const VERTRES = 10

Function Bildschirm()
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)
Bildschirm = lHSize & "x" & lVSize
End Function

Ich danke Euch im Voraus!
LG Ghost

:)

 

Das Bild bei 100% so groß gestalten, daß es den Bildschirm wie gewünscht ausfüllt.
Dann mit Rechtsklick -> Größe und Eigenschaften -> Eigenschaften:
Von Zellposition und Größe abhängig aktivieren.

Severus

 

Hallo Servus,

das habe ich schon gemacht, doch es passt immer noch nicht richtig.
Ich denke es liegt daran, das einige meiner Kollegen einen 4:3 (19 Zoll)-Monitor haben, während ich die Datei unter einem 25-Zoll (16:9)-Monitor programmiert habe.
Gruß Ghost570