FensterZoom, ermitteln des sichtbaren Bereichs
13.03.2004 06:24:50
Eugen Schwarz
Stehe wieder mal an und wäre froh um eure Hilfe.
Kann man den sichtbaren Bereich einer Tabelle ermitteln und wenn wie.
Wäre ein anderer Ansatz das beim FensterZoom den sichtbaren Bereich mitzoomt - egal wo ich mich auf der Tabelle befinde.
Die Untenstehenden Variante ist unbefriedigend, beim rechnen verschieben sich die beiden Bereiche.
Kennst du eine bessere Lösung?
Gruss
eugenS
Sub AppSizeZom(InOut As Boolean)
Select Case InOut
Case True
AppSize (Application.Width * 1.01), (Application.Width * 1.01 * 0.75)
ActiveWindow.Zoom = ActiveWindow.Zoom * 1.01
Case False
AppSize (Application.Width * 100 / 101), (Application.Width * 100 / 101 * 0.75)
ActiveWindow.Zoom = ActiveWindow.Zoom * 100 / 101
End Select
End Sub