01.10.2018, 07:35
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.
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.