Создание подписей к данным диаграммы
Опытным пользователям Excel известно, что порядок добавления подписей на диаграммы оставляет желать лучшего. В данном разделе мы рассмотрим прием, который позволяет быстро создать подписи к точкам диаграммы.
Диаграмма, а также исходные данные, на основании которых она построена, приведены на рис. 4.9.
Рис. 4.9. Диаграмма без подписей
Для управления отображением подписями к точкам диаграммы нужно в стандартном модуле редактора VBА написать следующий код (листинг 4.12).
Листинг 4.12. Подписи к данным диаграммы
Sub ShowLabels()
Dim rgLabels As Range ' Диапазон с подписями
Dim chrChart As Chart ' Диаграмма
Dim intPoint As Integer ' Точка, для которой добавляется
подпись
' Определение диаграммы
Set chrChart = ActiveSheet.ChartObjects(1).Chart
' Запрос на ввод диапазона с исходными данными
On Error Resume Next
Set rgLabels = Application.InputBox _
(prompt:="Укажите диапазон с подписями", Type:=8)
If rgLabels Is Nothing Then Exit Sub
On Error GoTo 0
' Добавление подписей
chrChart.SeriesCollection(1).ApplyDataLabels _
Type:=xlDataLabelsShowValue, _
AutoText:=True, _
LegendKey:=False
' Просмотр диапазона и назначение подписей
For intPoint = 1 To chrChart.SeriesCollection(1).Points.Count
chrChart.SeriesCollection(1). _
Points(intPoint).DataLabel.Text = rgLabels(intPoint)
Next intPoint
End Sub
Sub DeleteLabels()
' Удаление подписей диаграммы
ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1). _
HasDataLabels = False
End Sub
В результате написания данного кода будут созданы два макроса: ShowLabels (для включения подписей) и DeleteLabels (для их выключения). После выполнения макроса ShowLabels откроется диалоговое окно, в котором нужно указать диапазон исходных данных для создания подписей.
На рис. 4.10 показана диаграмма с подписями.
Рис. 4.10. Диаграмма с подписями
В данном случае в качестве исходных данных для создания подписей был использован диапазон А2:А9.