JackkG
05-31-2019, 11:16 AM
Hi,
I'm trying to extend the chart according to new added values. Here is the sample code i have recorded through a macro, but it doesn't seem to work when i run the code? Any help or tweak to the code is much appreciated. Thanks in advance!
Sub Chartext()
If ThisWorkbook.Worksheets("Sum").Range("A2").Value = 5 Then
ThisWorkbook.Worksheets("Schart").ChartObjects("Chart 1").Activate
Application.CutCopyMode = False
ActiveChart.FullSeriesCollection(1).XValues = "=Schart!$L$345:$Z$345"
ActiveChart.FullSeriesCollection(1).Values = "=Schart!$L$346:$Z$346"
ActiveChart.FullSeriesCollection(2).Values = "=Schart!$L$348:$Z$348"
ActiveChart.FullSeriesCollection(3).Values = "=Schart!$L$356:$Z$356"
ActiveChart.FullSeriesCollection(4).Values = "=Schart!$L$332:$Z$332"
ActiveChart.FullSeriesCollection(5).Values = "=Schart!$L$350:$Z$350"
End If
End Sub
The same has been posted here:
https://www.excelforum.com/excel-charting-and-pivots/1277898-chart-series-dont-extend.html#post5130022
I'm trying to extend the chart according to new added values. Here is the sample code i have recorded through a macro, but it doesn't seem to work when i run the code? Any help or tweak to the code is much appreciated. Thanks in advance!
Sub Chartext()
If ThisWorkbook.Worksheets("Sum").Range("A2").Value = 5 Then
ThisWorkbook.Worksheets("Schart").ChartObjects("Chart 1").Activate
Application.CutCopyMode = False
ActiveChart.FullSeriesCollection(1).XValues = "=Schart!$L$345:$Z$345"
ActiveChart.FullSeriesCollection(1).Values = "=Schart!$L$346:$Z$346"
ActiveChart.FullSeriesCollection(2).Values = "=Schart!$L$348:$Z$348"
ActiveChart.FullSeriesCollection(3).Values = "=Schart!$L$356:$Z$356"
ActiveChart.FullSeriesCollection(4).Values = "=Schart!$L$332:$Z$332"
ActiveChart.FullSeriesCollection(5).Values = "=Schart!$L$350:$Z$350"
End If
End Sub
The same has been posted here:
https://www.excelforum.com/excel-charting-and-pivots/1277898-chart-series-dont-extend.html#post5130022