Читаем Excel. Трюки и эффекты полностью

В данном разделе мы рассмотрим, каким образом можно построить диаграмму с помощью макроса.

Предположим, что у нас есть таблица с исходными данными (рис. 4.1), на основании которых необходимо построить диаграмму.

Рис. 4.1. Исходные данные для построения диаграммы


В данной таблице представлена информация о выручке за первый квартал (помесячно) по четырем торговым точкам. Обратите внимание на расположение таблицы (то есть на координаты диапазона, в котором она находится, – А1:Е4).

Для построения диаграммы следует написать и выполнить макрос, код которого приведен в листинге 4.1.

Листинг 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).

Листинг 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 приведен текст макроса, в котором, помимо прочего, указывается размер диаграммы и ее расположение.

Листинг 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. Диаграмма на основе выделенных данных


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

При подведении указателя мыши к столбикам диаграммы на экране будет отображаться соответствующая всплывающая подсказка.

Сохранение диаграммы в отдельном файле

После создания диаграммы может возникнуть вопрос – а где ее хранить? Можно использовать для этого листы рабочей книги, а можно сохранить диаграмму в отдельном файле под указанным именем. Например, с помощью приведенного в листинге 4.4 макроса диаграмма будет сохранена под именем Диаграмма. gif.

Перейти на страницу:

Похожие книги

1С: Бухгалтерия 8 с нуля
1С: Бухгалтерия 8 с нуля

Книга содержит полное описание приемов и методов работы с программой 1С:Бухгалтерия 8. Рассматривается автоматизация всех основных участков бухгалтерии: учет наличных и безналичных денежных средств, основных средств и НМА, прихода и расхода товарно-материальных ценностей, зарплаты, производства. Описано, как вводить исходные данные, заполнять справочники и каталоги, работать с первичными документами, проводить их по учету, формировать разнообразные отчеты, выводить данные на печать, настраивать программу и использовать ее сервисные функции. Каждый урок содержит подробное описание рассматриваемой темы с детальным разбором и иллюстрированием всех этапов.Для широкого круга пользователей.

Алексей Анатольевич Гладкий

Программирование, программы, базы данных / Программное обеспечение / Бухучет и аудит / Финансы и бизнес / Книги по IT / Словари и Энциклопедии
Эффективное использование C++. 55 верных способов улучшить структуру и код ваших программ
Эффективное использование C++. 55 верных способов улучшить структуру и код ваших программ

Эта книга представляет собой перевод третьего издания американского бестселлера Effective C++ и является руководством по грамотному использованию языка C++. Она поможет сделать ваши программы более понятными, простыми в сопровождении и эффективными. Помимо материала, описывающего общую стратегию проектирования, книга включает в себя главы по программированию с применением шаблонов и по управлению ресурсами, а также множество советов, которые позволят усовершенствовать ваши программы и сделать работу более интересной и творческой. Книга также включает новый материал по принципам обработки исключений, паттернам проектирования и библиотечным средствам.Издание ориентировано на программистов, знакомых с основами C++ и имеющих навыки его практического применения.

Скотт Майерс , Скотт Мейерс

Программирование, программы, базы данных / Программирование / Книги по IT