Tabelle mitzoomen wenn man das Fenster vergrössert

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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.

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

Beliebteste Forumthreads (12 Monate)

Tabelle mitzoomen wenn man das Fenster vergrössert

Forumthread: Tabelle mitzoomen wenn man das Fenster vergrössert

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Tabelle mitzoomen wenn man das Fenster vergrössert

Forumthread: Tabelle mitzoomen wenn man das Fenster vergrössert

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

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread