Книга: Excel. Трюки и эффекты
Создание подписей к данным диаграммы
Создание подписей к данным диаграммы
Опытным пользователям 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.
Оглавление книги
- Построение диаграммы с помощью макроса
- Сохранение диаграммы в отдельном файле
- Построение и удаление диаграммы нажатием одной кнопки
- Вывод списка диаграмм в отдельном окне
- Применение случайной цветовой палитры
- Эффект прозрачности диаграммы
- Построение диаграммы на основе данных нескольких рабочих листов
- Создание подписей к данным диаграммы
- Создание файлов с блокировкой
- Создание свободно позиционируемых элементов
- 12. Лекция: Создание приложений с графическим интерфейсом пользователя.
- Создание объектов Collection
- Диаграммы прецедентов
- 7.4.2.4. Создание своего первого LiveCD
- 4.2. Создание трехмерной модели и построение горизонтальной проекции детали
- 7.4.2. Создание собственного LiveCD
- Создание пользователя и группы на рабочей станции
- Создание корня документа:
- Диаграммы последовательности действий
- Создание многофайловой базы данных