MSChart-Plotting 1000 points

I've been pondering on this problem for some time now, maybe you can easily solve it for me. That would be terrific.
I'm plotting a graph with 2 curves on it that contain 1000 points. The problem is that I only want 4 rows displayed on the graph, not 1000. How do I do this? This is my code:

    For lRow = 0 To UBound(FirstDerivate) - 1 '0 -999
        For lCol = 0 To 2
            Select Case lCol
                Case 0  ' Get the concentration
                    vArray(lRow, lCol) = _
              Str(CalCurveData(lRow + 2)) 'x -axis values
                Case 1  ' Get the respons values
                    vArray(lRow, lCol) = _
              CalculatedResp(lRow + 2)
                Case 2  ' Get the derivatives
                    vArray(lRow, lCol) = _
                FirstDerivate(lRow)
            End Select
        Next lCol
    Next lRow
    ' Create the chart
    With GraphForm.MSChart1
        .chartType = VtChChartType2dLine
        '.RowCount = 4   (does not do any difference)
        '.ColumnCount = 2
        .ChartData = vArray
    End With

    ' Configure the chart.
    With GraphForm.MSChart1
        .TitleText = "Calibration curve"
        .Title.VtFont.Name = "Arial"
        .Title.VtFont.Style = VtFontStyleBold
        .Title.VtFont.size = 12
        'set chart labels
        .Plot.Axis(VtChAxisIdX).Labels(1).Auto = False
        .Plot.Axis(VtChAxisIdX).Labels(1).TextLayout.Orientation = VtOrientationHorizontal
        .Plot.Axis(VtChAxisIdX).Labels(1).TextLayout.VertAlignment = VtVerticalAlignmentCenter
        .Plot.Axis(VtChAxisIdX).Labels(1).TextLayout.WordWrap = True
        .Plot.Axis(VtChAxisIdX).AxisTitle.Text = "Conc"
        .Plot.Axis(VtChAxisIdX).AxisTitle.VtFont.Name = "Arial"
        .Plot.Axis(VtChAxisIdX).AxisTitle.VtFont.VtColor.Set 0, 120, 0
        .Plot.Axis(VtChAxisIdY).AxisTitle.Text = "Res/Der"
        .Plot.Axis(VtChAxisIdY).AxisTitle.VtFont.Name = "Arial"
        .Plot.Axis(VtChAxisIdY).AxisTitle.VtFont.VtColor.Set 0, 120, 0
        'Y-axis is linnear, x-axis logarithmic
        .Plot.Axis(VtChAxisIdY).AxisScale.Type =VtChScaleTypeLinear
        .Plot.Axis(VtChAxisIdX).AxisScale.Type =VtChScaleTypeLogarithmic
        'Set color of response line to blue
        With .Plot.SeriesCollection(1).Pen.VtColor
            .Blue = 200
            .Green = 0
            .Red = 0
        End With
        'Set color of derivative line to red
        With .Plot.SeriesCollection(2).Pen.VtColor
            .Blue = 0
            .Green = 0
            .Red = 200
        End With
        'setup legend
        .ShowLegend = True
        .Plot.SeriesCollection(1).LegendText= "Response"
        .Plot.SeriesCollection(2).LegendText= "Derivative"
    End With

Thanks/Ingela
IngelaAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

SethiCommented:
Why iterate 999 times if you want only 4 values to be plotted. Change this statement :  For lRow = 0 To UBound(FirstDerivate) - 1 '0 -999 to the following:
 For lRow = 0 To 3
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
IngelaAuthor Commented:
True, I could do that. Just found an even better solution.
Thanks anyway. Better:


MSChart1.ChartType = VtChChartType2dLine
With MSChart1.Plot.Axis(VtChAxisIdX)
      .ValueScale.MajorDivision = 10
      .ValueScale.MinorDivision = 5
      .CategoryScale.Auto = False          ' Sets manual scaling.
      .CategoryScale.DivisionsPerLabel = 2 ' Label appears every two
                                           ' divisions.
      .CategoryScale.DivisionsPerTick = 2  ' Ticks appear every two
                                           ' divisions.
      .CategoryScale.LabelTick = True   ' Labels displayed on top of
                                       ' Tick marks.
End With
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.