Mega Code Archive

 

Categories / VisualBasic Script / Application

 

Zoom a form

Private Sub UserForm_Initialize()     LabelZoom.Caption = ActiveWindow.Zoom '   Zoom     With ScrollBarZoom         .Min = 10         .Max = 400         .SmallChange = 1         .LargeChange = 10         .Value = ActiveWindow.Zoom     End With      '   Horizontally scrolling     With ScrollBarColumns         .Min = 1         .Max = 256         .Value = ActiveWindow.ScrollColumn         .LargeChange = 25         .SmallChange = 1     End With      '   Vertically scrolling     With ScrollBarRows         .Min = 1         .Max = ActiveSheet.Rows.Count         .Value = ActiveWindow.ScrollRow         .LargeChange = 25         .SmallChange = 1     End With End Sub