Can a zoom in/out chart be made?

  • Thread starter Thread starter Guest
  • Start date Start date
Ram,

One method would be to use macros. You would add a user form with a
scrollbar to your spreadsheet. The scrollbar would zoom the sheet and in
turn zoom the chart.

To do so, create a new code module and call it “Module1â€. Add this code to
the module:

Sub ShowForm()
UserForm1.Show
End Sub

Go to the sheet where your chart resides. Add a button to that sheet via
the Forms toolbar that will activate the scroll form described below. Attach
the macro above to that button.

Next, create a new user form and name it “UserForm1â€. Open the new user
form in design mode. Add a scrollbar to the user form via the VBA controls
toolbar and name it SBZoom. Add this code to the code module in the user
form:

Private Sub UserForm_Initialize()
With SBZoom
.Min = 10
.Max = 400
.SmallChange = 1
.LargeChange = 10
.Value = ActiveWindow.Zoom
End With
End Sub

Private Sub SBZoom_Change()
With ActiveWindow
.Zoom = ScrollBarZoom.Value
.ScrollColumn = ScrollBarColumns.Value
.ScrollRow = ScrollBarRows.Value
End With
End Sub

As you move the scroll bar, the change event will change the size of the
sheet which will in turn size the chart.
 
Back
Top