J
Jack
Jon
Hi, Thanks for the quick response. but I am using 2 series
and both are scatter charts.
Also I can't get the x-axis secondary to be an option.
This is the code I used:
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).XValues = "=hpepupperf!
R6C20:R75C20"
ActiveChart.SeriesCollection(2).Values = "=hpepupperf!
R6C18:R75C18"
ActiveChart.SeriesCollection(2).Select
ActiveChart.SeriesCollection(2).AxisGroup = 2
With ActiveChart
.Axes(xlCategory, xlSecondary).MinimumScale = _
.Axes(xlCategory, xlPrimary).MinimumScale
.Axes(xlCategory, xlSecondary).MaximumScale = _
.Axes(xlCategory, xlPrimary).MaximumScale
.Axes(xlCategory, xlSecondary).MajorUnit = _
.Axes(xlCategory, xlPrimary).MajorUnit
End With
Hi, Thanks for the quick response. but I am using 2 series
and both are scatter charts.
Also I can't get the x-axis secondary to be an option.
This is the code I used:
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).XValues = "=hpepupperf!
R6C20:R75C20"
ActiveChart.SeriesCollection(2).Values = "=hpepupperf!
R6C18:R75C18"
ActiveChart.SeriesCollection(2).Select
ActiveChart.SeriesCollection(2).AxisGroup = 2
With ActiveChart
.Axes(xlCategory, xlSecondary).MinimumScale = _
.Axes(xlCategory, xlPrimary).MinimumScale
.Axes(xlCategory, xlSecondary).MaximumScale = _
.Axes(xlCategory, xlPrimary).MaximumScale
.Axes(xlCategory, xlSecondary).MajorUnit = _
.Axes(xlCategory, xlPrimary).MajorUnit
End With