Zoom abhängig von Bildschirmauflösung einstellen

[Obelix45]

Hallo Andre,

ich habe ein ähnliches Problem mit der Auflösung. Ich wechsel über eine Schaltfläche zu verschiedenen Tabellen.
Dafür habe ich Makros aufgezeichnet da ich von VB keine Ahnung habe.

Ich würde gerne den ActiveWindow.Zoom abhängig von der Bildschirmauflösung einstellen.
Dazu müßte ich doch, laienhaft ausgedrückt, mit der if then oder mit einem Case arbeiten.
Ich habe aber keine Ahnung wie das funktioniert und ob es das noch bei VB gibt.
Wir haben Excel 2010 und 2013 im Einsatz.

Sub Blech_10()
'
' Blech_10 Makro
' Makro am 23.02.2009 von Robert aufgezeichnet
'

'
    Sheets("10").Select
    Range("A1").Select
    Range("A2").Select
    ActiveSheet.Outline.ShowLevels RowLevels:=1
    ActiveWindow.Zoom = 130
End Sub

Es wäre schön wenn Du mir da einen Tip geben könntest.

Robert

Aus dem Thema "Bild in Tabelle immer in der Mitte" herausgenommen.

[chris-ka]

Hi,

http://www.office-loesung.de/ftopic48392_0_0_asc.php

dort gibt es Lösungen dafür.