Hi, thanks.
I've done it this way:
With chrt
.ChartType = xlXYScatter
.SeriesCollection.NewSeries
.SeriesCollection(I).Name = k
.SeriesCollection(I).XValues = XArr
.SeriesCollection(I).Values = YArr
Dim pts As Points
Set pts = .SeriesCollection(i).Points
Dim j As Integer
For j = LBound(FArr) To UBound(FArr)
If FArr(j) = "D" Then
pts(j).MarkerStyle = xlMarkerStyleCircle
End If
j = j + 1
Next j
End With
However the problem is, it does not format all points, only odd entries (e.g 1, 3, 5) in every series. Any idea how to fix this? The FArr array stores string values from column D.
Bookmarks