Как сопоставить цвет точек графика и исходных данных

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

В этом случае мы меняем цвет точек на цвет диапазона источника. Мы определяем диапазон источника для каждой точки, оценивая ее с помощью формулы серии. Формула серии содержит адрес диапазона исходных данных. Перейдя в этот адрес, мы можем захватить точный цвет ячейки, а затем использовать его для точки на графике. 

1. Шаг 1 объявляет пять переменных. Мы используем oChart в качестве контейнера памяти для нашего графика, MySeries как контейнер памяти для каждой серии в нашем графике, dValues в сочетании с I для перебора значений в серии, и FormulaSplit для захвата и сохранения диапазона исходных данных. 

2. Шаг 2 добавляет в oChart активную диаграмму. Если диаграмма не выбрана, то выдается ошибка. Именно поэтому мы используем On Error Resume Next Statement. Это говорит Excel продолжить макрос даже в случае ошибки. 

3. Шаг 3 проверяет, заполнена ли переменная oChart объектом диаграмма. Если переменная oChart ничего не содержит, значит ни один график не был выбран перед запуском макроса. Если это так, то мы говорим об этом пользователю в окне сообщения, а затем мы выходим из макроса. 

4. Шаг 4 запускает цикл через все серии. 

Каждая диаграмма имеет формулу серии. Формула серии содержит ссылки на таблицу и указывает на ячейки, используемые для её создания. Типичная формула серии выглядит следующим образом: 

= SERIES(Лист1$F$6, Лист1$D$7:!$D$10,Лист1$F$7:$F$10,2)

Эта формула содержит три аргумента: первый – ссылка на диапазон имени серии, второй – ссылка на диапазон подписей данных, третий – ссылка на значения. 

5. Шаг 5 использует функцию Split, чтобы извлечь диапазон значений данных серии. 

6. Используем переменную dValues для того, чтобы захватить массив значений данных. 

7. Шаг 7 начинается цикл по точкам данных. Это делается путем установки счетчика от 1 до числа точек данных в dValues. Цикл заканчивается, когда счетчик достигнет последней точки. По мере того, как цикл проходит через каждую точку диаграммы, он устанавливает индекс цвета точки в соответствии с индексом цвета соответствующей исходной ячейки. 

8. На последнем этапе, макрос возвращается назад, чтобы получить следующий ряд данных. После того, как мы прошли через все ряды данных в таблице, макрос заканчивается. 

Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:

1. Активируйте редактор Visual Basic, нажав ALT + F11. 
2. Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта. 
3. Выберите Insert➜Module. 
4. Введите или вставьте код во вновь созданном модуле.