Добрый день.

Работаю с пузырьковой диаграммой. Мне необходимо раскрасить пузырьки в зависимости от названия компании. Пример, Ашан - жёлтый цвет, Перекрёсток - зелёный и т.д. Пузырьков очень много и в ручную очень долго раскрашивать.

Я создала условие для окраски пузырька, потом хочу это условие загнать в цикл, но условие не работает, что в нём не так??? Подскажите пожалуйста...


Sub Крашу_пузырёк_21()

If ActiveChart.SeriesCollection(21).ApplyDataLabels.Value = "Ашан" Then
ActiveChart.SeriesCollection(21).Interior.PatternColorIndex = 2
End If

End Sub