Hi, I am running a macro to create some charts, my orange line is on the primary axis with the blue and purple are on the secondary. I need the secondary zero point to start at the same as the primary, is there a change to my VBA code that would do this?? Also... how do i change the colour of the lines?
Worksheets("Chart2").Select
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.FullSeriesCollection(1).Delete
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(1).Name = FileName
ActiveChart.FullSeriesCollection(1).XValues = "=ChartData!$A$3:$A$" & FinalRowChart
ActiveChart.FullSeriesCollection(1).Values = "=ChartData!$B$3:$B$" & FinalRowChart
With ActiveChart
With .SeriesCollection.NewSeries
.XValues = "=ChartData!$P$5:$P$" & FinalRowBL
.Values = "=ChartData!$R$5:$R$" & FinalRowBL
.Name = "BD"
.AxisGroup = 2
End With
End With
With ActiveChart
With .SeriesCollection.NewSeries
.XValues = "=ChartData!$A$3:$A$" & FinalRowChart
.Values = "=ChartData!$G$3:$G$" & FinalRowChart
.Name = "Trace Line"
.AxisGroup = 2
End With
End With
Worksheets("Chart2").Select
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.FullSeriesCollection(1).Delete
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(1).Name = FileName
ActiveChart.FullSeriesCollection(1).XValues = "=ChartData!$A$3:$A$" & FinalRowChart
ActiveChart.FullSeriesCollection(1).Values = "=ChartData!$B$3:$B$" & FinalRowChart
With ActiveChart
With .SeriesCollection.NewSeries
.XValues = "=ChartData!$P$5:$P$" & FinalRowBL
.Values = "=ChartData!$R$5:$R$" & FinalRowBL
.Name = "BD"
.AxisGroup = 2
End With
End With
With ActiveChart
With .SeriesCollection.NewSeries
.XValues = "=ChartData!$A$3:$A$" & FinalRowChart
.Values = "=ChartData!$G$3:$G$" & FinalRowChart
.Name = "Trace Line"
.AxisGroup = 2
End With
End With