Построение диаграммы с помощью макроса
В данном разделе мы рассмотрим, каким образом можно построить диаграмму с помощью макроса.
Предположим, что у нас есть таблица с исходными данными (рис. 4.1), на основании которых необходимо построить диаграмму.
Рис. 4.1. Исходные данные для построения диаграммы
В данной таблице представлена информация о выручке за первый квартал (помесячно) по четырем торговым точкам. Обратите внимание на расположение таблицы (то есть на координаты диапазона, в котором она находится, – А1:Е4).
Для построения диаграммы следует написать и выполнить макрос, код которого приведен в листинге 4.1.
Sub CreateChart()
' Создание и настройка диаграммы
With Charts.Add
' Данные из первого листа
.SetSourceData Source:=Worksheets(1).Range(«A1:E4»)
' Заголовок
.HasTitle = True
.ChartTitle.Text = «Выручка по магазинам»
' Активизируем диаграмму
.Activate
End With
End Sub
В результате выполнения данного макроса будет построена диаграмма, изображенная на рис. 4.2.
Рис. 4.2. Построенная диаграмма
При написании макроса наряду с другими параметрами мы указали диапазон, который следует обрабатывать (А1:Е4), а также заголовок диаграммы – Выручка по магазинам. Созданная диаграмма помещается на автоматически сформированный рабочий лист, которому по умолчанию присваивается имя Диаграмма1 (при последующих построениях диаграммы каждый раз будет создаваться новый лист Диаграмма с номером, увеличенным на 1 по сравнению с предыдущим листом).
При необходимости на основании этих же данных (см. рис. 4.1) можно создать внедренную диаграмму. Для этого нужно написать и запустить следующий макрос (листинг 4.2).
Sub CreateEmbeddedChart()
' Создание и настройка внедренной диаграммы
With Worksheets(1).ChartObjects.Add(100, 60, 250, 200)
' Объемная диаграмма
.Chart.ChartType = xl3DArea
' Источник данных
.Chart.SetSourceData Source:=Worksheets(1).Range(«A1:E4»)
End With
End Sub
Результат выполнения данного макроса представлен на рис. 4.3.
На рисунке видно, что диаграмма внедрена в рабочий лист с исходными данными.
Рис. 4.3. Внедренная диаграмма
Можно также создать диаграмму на основе выделенных данных. В листинге 4.3 приведен текст макроса, в котором, помимо прочего, указывается размер диаграммы и ее расположение.
Sub CreateCharOnSelection()
' Создание диаграммы (с заданием положения на листе)
With ActiveSheet.ChartObjects.Add( _
Selection.Left + Selection.Width, _
Selection.Top + Selection.Height, 300, 200).Chart
' Тип диаграммы
.ChartType = xlColumnClustered
' Источник данных – выделение
.SetSourceData Source:=Selection, PlotBy:=xlColumns
' Без легенды
.HasLegend = False
' Без заголовка
.HasTitle = True
.ChartTitle.Characters.Text = «Выручка за период»
' Выделение диаграммы
.Parent.Select
End With
End Sub
Результат выполнения данного макроса представлен на рис. 4.4 – на основании данных таблицы, которая расположена в левом верхнем углу, создана диаграмма.
Рис. 4.4. Диаграмма на основе выделенных данных