Лаб. раб. 7
.docЛабораторная работа №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 |
Построить гистограмму по значениям удержанной суммы |