Anzeige
Archiv - Navigation
388to392
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
388to392
388to392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabelle mitzoomen wenn man das Fenster vergrössert

Tabelle mitzoomen wenn man das Fenster vergrössert
02.03.2004 19:00:54
Eugen Schwarz
hallo zusammen
Kann man den sichtbaren Bereich einer Tabelle mitzoomen wenn man das fenster
vergrössert (mit der Maus aufzieht) oder verkleinert.
gruss eugenS

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle mitzoomen wenn man das Fenster vergrössert
02.03.2004 19:35:00
Alex K.
Hallo Eugen,
hier mal Makros für das Verändern des Zoom-Wertes beim Ändern der Fenstergröße. Das Ganze ist nur eine grobe Annäherung. Vielleicht hat ja jemand eine bessere Lösung.
Bitte füge den nachfolgenden Code in "DieseArbeitsmappe" ein. Dazu wie folgt vorgehen:
1) In Excel in der Fensterleiste deiner Excel-Datei auf das Excel-Icon mit rechter Maustaste klicken. Im erscheinenden PopUp-Menü den Punkt "Code anzeigen" anklicken
2) Im VBA Editor erscheint nun ein Fenster "... DieseArbeitsmappe (Code)".
3) Den folgenden Code kopieren und in das Fenster "... - DieseArbeitsmappe (Code)" einfügen.

Option Explicit
Private saveWidth   As Double
Private saveHeight  As Double
Private Sub Workbook_WindowActivate(ByVal Wn As Excel.Window)
saveWidth = Wn.Width
saveHeight = Wn.Height
End Sub
Private Sub Workbook_WindowResize(ByVal Wn As Excel.Window)
Dim perc        As Double
perc = 20
If Abs(Wn.Width - saveWidth) > Abs(Wn.Height - saveHeight) Then
If saveWidth <> 0 Then
perc = (Wn.Width * 100) / saveWidth
perc = (perc * Wn.Zoom) / 100
If perc < 20 Then
perc = 20
End If
If perc > 300 Then
perc = 300
End If
End If
Else
If saveHeight <> 0 Then
perc = (Wn.Height * 100) / saveHeight
perc = (perc * Wn.Zoom) / 100
If perc < 20 Then
perc = 20
End If
If perc > 300 Then
perc = 300
End If
End If
End If
Wn.Zoom = perc
saveWidth = Wn.Width
saveHeight = Wn.Height
End Sub

Beim ersten Mal in der Excel-Date die Fenstergröße nur geringfügig ändern (ist nur einmal notwendig. Beim nächsten Öffnen der Datei funktioniert es gleich beim ersten Ändern der Fenstergröße). Dann beim zweiten Ändern der Fenstergröße müßte die Zoom-Größe angepasst werden.
Anzeige
AW: Tabelle mitzoomen wenn man das Fenster vergrössert
03.03.2004 23:14:19
EugenS
hallo alex
herzlichen dank für deine Antwort. funktioniert. macht fast was ich will.
zoomt das "Fenster" in Excel, geht das auch mit "Excel" selbst.
gruss markus

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige