Лабораторная работа №7

Автоматизация Microsoft Excel: построение диаграмм

Цель: получить навыки построение диаграмм в документах Microsoft Excel.

Краткие теоретические сведения

Диаграммам Excel соответствует объект Chart, который может располагаться как на отдельном листе, так и на листе с данными. Если объект Chart располагается на листе с данными, ему соответствует член коллекции ChartObjects объекта Worksheet. В этом случае создание диаграммы нужно начать с добавления элемента в эту коллекцию:

Сh:=App.WorkBooks[l].WorkSheets[2].ChartObjects.Add(10,50,400,400);

Если же диаграмма располагается на отдельном листе (не предназначенном для хранения данных), то ее создание нужно начать с добавления элемента в коллекцию Sheets объекта Application (отличающуюся от коллекции Worksheets тем, что она содержит листы всех типов, а не только листы с данными):

App.WorkBooks[l].Sheets.Add( , , 1, xlWBATChart);

В этом случае первый параметр метода Add идентифицирует лист, перед которым нужно поместить лист с диаграммой (или листы, если их несколько), второй параметр – лист, после которого нужно поместить лист с диаграммой (используется обычно один из них), третий параметр – количество создаваемых листов, а четвертый – их тип. Значения четвертого параметра совпадают со значениями первого параметра метода Add коллекции WorkBooks объекта Application, и при использовании имен соответствующих констант следует определить их в приложении-контроллере.

Простейший способ создать диаграмму с точки зрения пользователя – построить ее с помощью соответствующего мастера на основе прямоугольной области с данными. Точно так же можно создать диаграмму и с помощью контроллера автоматизации – для этой цели у объекта Chart, являющегося свойством объекта ChartObject (члена коллекции ChartObjects), имеется метод ChartWizard. Первым параметром этого метода является объект Range, содержащий диапазон ячеек для построения диаграммы, а вторым – числовой параметр, указывающий, какого типа должна быть эта диаграмма:

var

Ch: Variant;

…

Ch.Chart.ChartWizard(

App.WorkBooks[l].WorkSheets[2].Range['A1:C5'],xl3DColumn);

Возможные значения параметра, отвечающего за тип диаграммы, можно найти в справочном файле или библиотеке типов.

У объекта Chart имеется множество свойств, которые отвечают за внешний вид диаграммы и с помощью которых можно изменить ее точно так же, как это делают пользователи вручную. Ниже приводится пример создания заголовка диаграммы и подписей вдоль ее осей (оси есть не у всех типов диаграмм).

Ch.Chart.HasTitie := 1;

Ch.Chart.HasLegend : = False;

Ch.Chart.ChartTitle.Text:= 'Пример диаграммы Excel ';

Ch.Chart.Axes(l).HasTitle:= True;

Ch.Cha rt.Axes(1).AxisTitle.Text:= 'Подпись вдоль оси абсцисс';

Ch.Chart.Axes(2).HasTitle:= True;

Ch.Chart.Axes(2).AxisTitie.Text:= ''Подпись вдоль оси ординат';

Еще один способ создания диаграммы – определить все ее параметры с помощью свойств объекта Chart, включая и определение серий, на основе которых она должна быть построена. Данные для серии обычно содержатся в объекте Range, содержащем строку или столбец данных, а добавление серии к диаграмме производится путем добавления члена к коллекции SeriesCollection, например:

App.WorkBooks[l].Sheets.Add( , , 1, xlWBATChart);

App.WorkBooks[l].Sheets[l].ChartType := xl3DPie;

Rng:=App.WorkBooks[1].Worksheets[2].Range['Bl:B5'];

App.WorkBooks[l].Sheets[l].SeriesCollection.Add(Rng);

В данном примере к диаграмме, созданной на отдельном листе, специально предназначенном для диаграмм, добавляется одна серия на основе диапазона ячеек другого листа.

Индивидуальное задание

На основании файла, сформированного в результате выполнения лабораторной работы №6, построить диаграмму согласно варианту. Диаграмму добавить в сформированный ранее xls-файл.

Вариант	Индивидуальное задание
1	Построить круговую диаграмму, отражающую структуру балансовой стоимости объектов в виде соответствующего сектора
2	Показать в виде графика суммы вложений коммерческого банка
3	Построить гистограмму по привлеченным средствам банка
4	Построить гистограмму цены продажи акций
5	Построить гистограмму числа дней, на которые выдан кредит
6	Показать на графике поступления на счета по вкладам
7	Показать в виде графика суммы вложений коммерческого банка
8	Построить круговую диаграмму, отражающую структуру сумм ликвидных активов за период с 01.01.97г. по 01.05.97г.
9	Показать в виде графика суммы остатков коммерческого банка
10	Построить круговую диаграмму, отражающую структуру остатков кредитных вложений
11	Построить гистограмму депозитов предприятий и кооперативов
12	Построить круговую диаграмму, отражающую значения депозитов за первый квартал
13	Показать в виде гистограммы суммы доходов коммерческого банка
14	Построить круговую диаграмму, отражающую структуру сумм расходов коммерческого банка
15	Построить график зависимости доходов предприятия по периодам
16	На круговой диаграмме показать прибыль от продажи товаров для каждого поставщика
17	На круговой диаграмме показать удельные веса кредитных вложений банков
18	На круговой диаграмме показать для каждого должника долг за коммунальный услуги
19	Построить график значений стоимости продукции по заказчикам
20	На круговой диаграмме показать цены путевок в зависимости от места путешествия
21	На круговой диаграмме показать доходы семей
22	На круговой диаграмме показать розничную цену товаров
23	Построить гистограмму по значениям прибыли от продажи товаров за 2 год
24	На круговой диаграмме показать прибыль предприятий
25	Построить гистограмму по значениям удержанной суммы