如何在散点图中计算序列

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

错误消息：找不到具有指定名称的项目

Answer 1

只需使用ActiveChart.SeriesCollection.Count即可。