Обновление линейного графика на основе таблицы

У меня есть таблица с 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

источник

2013-09-26 Edward Armstrong

Какие ошибки/проблемы, где? – pnuts

Что такое Sub (update_slope)? .. это должно быть Sub update_slope(). –

В нем говорится, что «суб или функция не определена» относится к диаграмме. Я не был уверен, правильно ли я имел в виду объекты диаграммы. –

UNTESTED

Sub Update_Slope() 
    ActiveSheet.ChartObjects("Chart(2)").Activate 
    ActiveChart.Axes(xlCategory).MinimumScale = Range("F68").Value 
    ActiveChart.Axes(xlCategory).MaximumScale = Range("F58").Value 

    ActiveSheet.ChartObjects("Chart(4)").Activate 
    ActiveChart.Axes(xlCategory).MinimumScale = Range("F69").Value 
    ActiveChart.Axes(xlCategory).MaximumScale = Range("F59").Value 
End Sub

источник

2013-09-26 16:49:05 pnuts

Sub Update_All_Slopes() 

    Dim co, sht as WorkSheet 

    Set sht = Activesheet 
    Set co = sht.ChartObjects 

    'ideally you're looping through your table range to do this, instead 
    ' of hard-coding each line. Need more info on how your sheet is set up 
    ' and how to identify which chart should be updated... 
    FixYAxis co("Chart2").Chart,sht.Range("F68").Value, sht.Range("F58").Value 
    FixYAxis co("Chart4").Chart,sht.Range("F69").Value, sht.Range("F59").Value 
    '...etc 

End Sub 

Sub FixYAxis(cht as Chart, minVal,maxVal) 
    With cht.Axes(xlValue, xlPrimary) 
     .MaximumScale = maxVal   
     .MinimumScale = minVal 
    End With 
End Sub

источник

2013-09-26 18:14:09

Обновление линейного графика на основе таблицы

ответ

Смежные вопросы