VBA Macro Creates Scatter Plot in 2003, Adds Lines in 2007???

[kjb034]

I have the following macro. It works fine, creating an XY scatter plot in Excel 2003, but when one of my users runs it in Excel 2007, it creates a scatter plot with lines. Why does it do this? I am using "ChartType = xlXYScatter", not xlXYScatterLine s.

Public Sub CreateChart(ByVal viLabeledSeries As Integer, 
ByVal viNonLabeledSeries As Integer, ByVal vsWorkbookName As String, 
ByVal vsPopulationName As String, ByVal vsPrimaryAxisTitle As String, 
ByVal vsSecondaryAxisTitle As String)
    Dim i As Integer
    Dim series As series
    Dim sXColumn As String
    Dim sYColumn As String
 
    'Create the chart
    Charts.Add
    ActiveChart.ChartType = xlXYScatter
    ActiveChart.PlotBy = xlColumns
 
    For i = ActiveChart.SeriesCollection.Count To 1 Step -1
        ActiveChart.SeriesCollection(i).Delete
    Next i
 
    'Add the data series
    For i = 1 To viNonLabeledSeries
        sXColumn = GetColumnNameFromNumber((i - 1) * 2 + 4)
        sYColumn = GetColumnNameFromNumber((i - 1) * 2 + 5)
        Set series = ActiveChart.SeriesCollection.NewSeries
        series.XValues = Sheets("Data").Range(sXColumn & "1:" & 
sXColumn & "30000")
        series.Values = Sheets("Data").Range(sYColumn & "1:" & 
sYColumn & "30000")
    Next i
 
    For i = 1 To viLabeledSeries
        'Add the first data series because this way, the points will be on 
        'top of the other points so it's easier to see them
        Set series = ActiveChart.SeriesCollection.NewSeries
        series.Name = Sheets("Data").Range("A" & i)
        series.XValues = Sheets("Data").Range("B" & i & ":B" & i)
        series.Values = Sheets("Data").Range("C" & i & ":C" & i)
    Next i
 
 
    ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Chart"
    ActiveChart.PlotArea.Select
    Selection.ClearFormats

[kjb034]

Ok, I figured out why Excel 2007 adds the lines.

I need to add the following code for each series created:

If Application.Version >= 12# Then
    series.Format.Line.Visible = msoFalse
End If