根据表格更新折线图(Update line graph based on table)

 每张线图都有一张Max Min表。 我想构建一个宏，它将更新每个线图（总共40个）。 请指教。 
 
 这是我到目前为止所拥有的。 当我开始学习如何编写VBA时，我确信它编写得很糟糕。 
 
Sub Update_Slope()

    With Chart(2).Axes(xlValue, xlPrimary)
        .MaximumScale = ActiveSheet.Range("F58").Value
            ' Constant value
        .MinimumScale = ActiveSheet.Range("F68").Value
            ' Constant Value

    With Chart(4).Axes(xlValue, xlPrimary)
        .MaximumScale = ActiveSheet.Range("F59").Value
            ' Constant value
        .MinimumScale = ActiveSheet.Range("F69").Value
            ' Constant Value
    End With
End Sub

I have a table with Max Min for each line graph. I want to build a macro that will update each line graph (40 in total) off of a table. Please Advise. 
 
Here is what I have so far. I'm sure its poorly written as I'm starting to learn how to write VBA.
 
Sub Update_Slope()

    With Chart(2).Axes(xlValue, xlPrimary)
        .MaximumScale = ActiveSheet.Range("F58").Value
            ' Constant value
        .MinimumScale = ActiveSheet.Range("F68").Value
            ' Constant Value

    With Chart(4).Axes(xlValue, xlPrimary)
        .MaximumScale = ActiveSheet.Range("F59").Value
            ' Constant value
        .MinimumScale = ActiveSheet.Range("F69").Value
            ' Constant Value
    End With
End Sub

原文：https://stackoverflow.com/questions/19033142