ZOOMING YOUR SCREEN

g INTRODUCTION
Sometimes, it is quite useful to modify the zoom of your screen, for example, above when you have to deal with a big amount of data in a single sheet. You will enjoy an helicopter view on your spreadsheet.

g ROUTINES
This routine calls the ZoomScreen sub routine [1]. This routine shows the Userform [2]. This routine modifies the Zoom[3]. This routine displays the Zoom value in percentages [4]. This routine closes the dialog box [5]. This routine activates the scrollbar as a mean to define the zoom value [6].

[1]--------------------------

Private Sub
Zoom_Click()ZoomScreen
End Sub

[2]--------------------------

Sub ZoomScreen()
UserFormZoom.Show
End Sub

[3]--------------------------

Private Sub
UserFormZoom_Initialize()
LabelZoom.Caption = ActiveWindows.Zoom & "%"
' Zoom
With ScrollBarZoom
.Min = 10
.Max = 400
.SmallChange = 1
.LargeChange = 10
.Value = ActiveWindow.Zoom
End With
TextBoxZoom.Text = ActiveWindows.Zoom
End Sub

[4]--------------------------

Private Sub LabelZoom_Click()
.Caption = ActiveWindows.Zoom & "%"
End Sub

[5]--------------------------

Private Sub OKButton_Click()
UserFormZoom.Hide
End Sub

[6]--------------------------

Private Sub ScrollBarZoom_Change()
ActiveWindow.Zoom = ScrollBarZoom.Value
TextBoxZoom.Text = ScrollBarZoom.Value
End Sub

-----------------------------

g PICTURE 1