Как посчитать ряд в точечной диаграмме

Question

В Excel 2016 (O365?) Все маркеры на графике отображаются в виде кружков. Я хочу сделать их разными. Идея состоит в том, чтобы определить количество рядов в диаграмме и внести изменения в цикл For ...To (number of series) Next. Я понятия не имею, как найти номер серии .

Sub aCountLines()

    With ActiveChart
        Dim lngSeriesCount As Long
        lngSeriesCount = .ChartObjects(1).Chart.SeriesCollection.Count
        MsgBox (lngSeriesCount)
    End With
End Sub

Сообщение об ошибке: элемент с указанным именем не найден