Error bar frequency

[WithTheRanks]

Hi guys.
I'm plotting a large data set as an x-y scatter, with a lot of close together points. When I add error bars for every data point they are so closely packed as to make a huge black blur along the graph. Is there a way to plot all the data points, but add error bars for only every nth point (say tenth, fiftieth, etc)? I'm also using a column of custom errors for the bars.
Thanks.

 

[Worf]

Hello and welcome to the Board

The code below produces the following result:

Sub SomeBars()
Dim posY As Range, negY As Range, s As Series, i%
Const Spacing = 4 ' adjust the frequency here
Range("x58:y157").Value = Range("ab58:ac157").Value ' get all custom error values
Set s = ActiveSheet.ChartObjects("Chart5").Chart.SeriesCollection(1)
Set posY = Range("y58:y157")
Set negY = Range("x58:x157")
s.ErrorBar xlY, xlErrorBarIncludeBoth, xlErrorBarTypeCustom, "='" & _
posY.Parent.Name & "'!" & posY.Address(, , xlR1C1), "='" & negY.Parent.Name & _
"'!" & negY.Address(, , xlR1C1)
MsgBox "All error bars are there..."
' eliminate unwanted bars
For i = negY.Cells(1, 1).Row To negY.Rows.Count + negY.Cells(1, 1).Row
   If i Mod Spacing <> 0 Then Cells(i, 24).Resize(, 2).Value = 0
Next
End Sub