Thread: Implimenting a graph scaling macro

I am a programing novice and need help implimenting a macro i found on the internet in excel 2003. what i esentially want is to be able to plot a graph and then to zoom in on a slice of data as defined by the user. in this case a slice of time. i have set up the excel file as discribed on the web site. any help would be greatly appreciated. cheers

website: http://peltiertech.com/Excel/Charts/...nkToSheet.html

macro code :

Option Explicit

Private Sub ChangeAxisScales()
    With ActiveSheet.ChartObjects("Chart 1").Chart

        ' Category (X) Axis
        With .Axes(xlCategory)
            .MaximumScale = ActiveSheet.Range("$E$2").Value
            .MinimumScale = ActiveSheet.Range("$E$3").Value
            .MajorUnit = ActiveSheet.Range("$E$4").Value
        End With

        ' Value (Y) Axis
        With .Axes(xlValue)
            .MaximumScale = ActiveSheet.Range("$F$2").Value
            .MinimumScale = ActiveSheet.Range("$F$3").Value
            .MajorUnit = ActiveSheet.Range("$F$4").Value
        End With

    End With
End Sub