Отмечаем первое и последнее значение на графике

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

Все графики имеют объект SeriesCollection, который содержит различные серии данных. Этот макрос проходит через все серии, в результате чего каждая из них попадает в фокус по одному разу. 

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

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

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

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

5. Если метки данных уже существуют, нам нужно очистить их. Мы можем сделать это с помощью xlDataLabelsShowNone. 

6. Каждая серия данных имеет коллекцию, которая содержит все точки данных для диаграммы. Как и большинство коллекций в объектной модели Excel, точки данных имеют номера индексов. 

Шаг 6 использует номера индексов, чтобы добраться до первой и последней точек данных. Первая точка данных проста - мы фиксируем её с помощью MySeries.Points. После того, как мы захватываем ее, мы можем использовать метод ApplyDataLabels для включения меток данных для этой одной точки. 

Последняя метка данных немного сложнее. Мы используем MySeries.Points.Count, чтобы получить максимальное количество точек данных в серии. То есть порядковый номер последней точки данных. Мы захватываем последнюю точку данных, а затем добавляем к ней метку данных. И, наконец, мы регулируем форматирование на метках данных, таким образом чтобы они имели жирный шрифт. 

7. Шаг 7 Повторяет цикл. После того, как мы прошли через все ряды данных в графике, макрос заканчивается.

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

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