reverse axis not working as before...


Bruce Bowler

This code "worked" in 2003, but doesn't "work" in 2007...

In this context, "worked" means that in 2003, the X axis for both Y axes
were reversed, as requested. In 2007, only the X axis for the primary Y
axis is reversed, with the X axis for the secondary Y axis remains the
same (but the labels are reversed, so the graph looks odd and is hard/
impossible to interpret properly).

Also, the line marked with <<<<'s throws an error in 2007 but worked in
2003. Any ideas how to fix it?


ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets(mainsheet$).Range("E:G"),
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="tempsal"
ActiveChart.SeriesCollection(2).AxisGroup = 2
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = cruiseid$
.ChartTitle.AutoScaleFont = False
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Distance
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
ActiveChart.HasLegend = False
With Selection.Border
.ColorIndex = 16
.Weight = xlThin
.LineStyle = xlContinuous
End With
With Selection.Interior
.ColorIndex = 2
.PatternColorIndex = 1
.Pattern = xlSolid
End With
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = False
.HasMinorGridlines = False
.MinimumScale = 0
.MaximumScale = 350
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = True
' .ScaleType = xlLinear <<<<<<<<<<<<<<<<<<<<<
End With
ActiveChart.SeriesCollection(2).AxisGroup = 1
ActiveChart.SeriesCollection(1).AxisGroup = 2
With ActiveChart
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Salinity
.Axes(xlValue, xlSecondary).HasTitle = True
.Axes(xlValue, xlSecondary).AxisTitle.Characters.Text =
"Temperature (degrees c)"
End With
For i = 1 To 2
With Selection.Border
.Weight = xlThin
.LineStyle = xlAutomatic
End With
With Selection
.MarkerStyle = xlNone
.Smooth = False
.MarkerSize = 5
.Shadow = False
End With
Next i

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question