2016-05-17 2 views
0

Я совершенно новый для VBA. У меня есть этот кусок кода:изменить название графика с VBA

Range("G37:G45").Select 
    ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select 
    ActiveChart.SetSourceData Source:=Range("Analisis!$G$37:$G$45") 
    ActiveChart.PlotArea.Select 
    ActiveChart.FullSeriesCollection(1).XValues = "=Analisis!$H$37:$H$45" 
    ActiveChart.FullSeriesCollection(1).Select 
    ActiveChart.FullSeriesCollection(1).ApplyDataLabels 

    ActiveChart.ChartTitle.Select 
    ActiveChart.ChartTitle.Text = Sheets("Analisis").Range("F36") 

В основном все работы, но когда я изменить ссылку в ячейке F36, все графические изменения, кроме из названия. Должен ли я добавить что-то еще? Благодаря

+1

Этот код будет работать только один раз. Таким образом, он просто берет значение из диапазона F36 во время его запуска и добавляет в качестве названия диаграммы. Это не формула, которая будет автоматически обновляться –

ответ

0

Try:

ActiveChart.ChartTitle.Caption = "=Analisis!F36" 
Смежные вопросы