Как посчитать серии на диаграмме разброса

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

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


excel vba
person Boris    schedule 03.07.2019    source источник
comment
Если ActiveChart представляет собой встроенную диаграмму, а не лист диаграммы, вы столкнетесь с ошибкой.   -  person AAA    schedule 03.07.2019
comment
Спасибо. Я сам понял, что в моем коде что-то не так. Это не работает как для встроенного, так и для диаграммы. Я аккуратно спрашиваю, как заставить работать? - Спасибо.   -  person Boris    schedule 05.07.2019
comment
это твой полный код?   -  person AAA    schedule 05.07.2019

Ответы (1)


arrow_upward
0
arrow_downward

Вместо этого просто используйте ActiveChart.SeriesCollection.Count.

person Merijn van den Berg    schedule 04.10.2019
comment
Я сделал это и получил нулевой счет в таблице, в которой было 19 элементов серии. - person Phoenix14830; 06.11.2019