Упражнение 4. Создание, настройка внешнего вида областей, область построения, заголовка и формирование области данных диаграммы.
Для создания и работы с диаграммами в Excel используется коллекция Charts объекта Application. Через эту коллекцию можно получить полный доступ ко всем диаграммам и их свойствам.
Диаграмма представляет собой прямоугольную область, на которой расположены: область построения диаграммы, заголовок, легенда. В области построения диаграммы располагается диаграмма и подписи осей, которые могут быть вынесены за эту область. Исходные данные для построения диаграммы представляют собой прямоугольную область ячеек листа.
Создание диаграммы
Для создания диаграммы используем метод Add коллекции Charts. Процедура AddChart (для Delphi) создает диаграмму, устанавливает ее вид и возвращает ее имя для доступа к этой диаграмме в дальнейшем. В качестве второго аргумента функции можно использовать константу xl3Darea(-4098), которая позволяет создать объемную диаграмму.
Function AddChart(var name:string; ChartType:integer):boolean;
const xl3DArea=-4098;
begin
AddChart:=true;
try
name:=E.Charts.Add.Name;
E.Charts.Item[name].ChartType:=ChartType;
except
AddChart:=false;
end;
End;
Область данных диаграммы
Данные для построения диаграммы должны быть расположены на любом листе рабочей книги и представлять собой прямоугольную область. Для определения рабочей области данных используется метод SetSourceData, первый аргумент которого - ссылка на лист и область ячеек, второй - определяет способ использования данных (по строкам/столбцам).
Function SetSourceData(Name,Sheet:variant; Range:string;XlRowCol:integer):boolean;
begin
SetSourceData:=true;
try
E.ActiveWorkbook.Charts.Item[name].SetSourceData (Source:=E.ActiveWorkbook.Sheets.Item [Sheet].Range[Range],PlotBy:=XlRowCol);
except
SetSourceData:=false;
end;
End;
Область диаграммы
Если диаграмма расположена на одном листе с данными, то можно изменять координаты и размеры области диаграммы. Диаграмма может быть размещена также на отдельном листе, тогда ее размеры совпадают с размером листа. Для доступа к координатам и размерам этой области используем объект ChartArea (область диаграммы). Функция PositionChart изменяет ее координаты и размеры. Аналогично мы можем получить координаты и размеры диаграммы. Для этого достаточно считать значения Left, Top, Width и Height объекта ChartArea.
Function PositionChart(Name:variant; Left,Top,Width,Height:real):boolean;
begin
PositionChart:=true;
try
E.Charts.Item[name].ChartArea.Left:=Left;
E.Charts.Item[name].ChartArea.Top:=Top;
E.Charts.Item[name].ChartArea.Width:=Width;
E.Charts.Item[name].ChartArea.Height:=Height;
except
PositionChart:=false;
end;
End;
Кроме размеров и координат, область диаграммы имеет свойства, которые определяют стиль, цвет, толщину рамки окаймления, а также рисунок и цвет самой области. Свойства рамки содержатся в объекте Border области ChartArea. Цвет рамки может быть представлен как комбинация из трех цветов RGB или выбран из палитры. Толщина и стиль выбираются из конечного, определенного списка значений. Используем функцию BorderChartArea для установки типа и цвета рамки из приложений Delphi.
Function BorderChartArea(Name:variant; Color,LineStyle,Weight:integer):boolean;
begin
BorderChartArea:=true;
try
E.Charts.Item[name].ChartArea.Border.Color:=Color;
E.Charts.Item[name].ChartArea.Border.Weight:=Weight;
E.Charts.Item[name].ChartArea.Border.LineStyle:=LineStyle;
except
BorderChartArea:=false;
end;
End;
Свойства области диаграммы содержатся в объекте Interior. Цвет области и рисунка заполнения может быть представлен как комбинация из трех цветов RGB или выбран из палитры. Вид рисунка заполнения выбирается из конечного, определенного списка значений (смотрите исходный текст). Функция BrushChartArea устанавливает цветовые параметры области диаграммы.
Function BrushChartArea(Name:variant; Color,Pattern,PatternColor:integer):boolean;
begin
BrushChartArea:=true;
try
E.Charts.Item[name].ChartArea.Interior.Color:=Color;
E.Charts.Item[name].ChartArea.Interior.Pattern:=Pattern;
E.Charts.Item[name].ChartArea.Interior.PatternColor:=PatternColor;
except
BrushChartArea:=false;
end;
End;
Для установки фона области диаграммы также можно использовать рисунок, загруженный из файла в графическом формате. Для этого используется метод UserPicture объекта Fill области ChartArea.
Function BrushChartAreaFromFile(Name:variant;File_:string):boolean;
begin
BrushChartAreaFromFile:=true;
try
E.Charts.Item[name].ChartArea.Fill.UserPicture(PictureFile:=File_);
E.Charts.Item[name].ChartArea.Fill.Visible:=True;
except
BrushChartAreaFromFile:=false;
end;
End;
Область диаграммы - это область, которая содержит все остальные объекты диаграммы.
Область построения диаграммы
Область построения диаграммы служит для размещения графического изображения. Она имеет координаты относительно области диаграммы и другие свойства, присущие области: цвет и стиль рамки, цвет заливки и фоновый рисунок. Для доступа к ее координатам и размерам используем объект PlotArea (область построения диаграммы), который содержит все свойства области. Функция PositionPlotArea изменяет ее координаты и размеры.
Function PositionPlotArea(Name:variant;
Left,Top,Width,Height:real):boolean;
begin
PositionPlotArea:=true;
try
E.Charts.Item[name].PlotArea.Left:=Left;
E.Charts.Item[name].PlotArea.Top:=Top;
E.Charts.Item[name].PlotArea.Width:=Width;
E.Charts.Item[name].PlotArea.Height:=Height;
except
PositionPlotArea:=false;
end;
End;
Другими важными свойствами области диаграммы являются свойства, определяющие стиль, цвет, толщину рамки окаймления и рисунок, цвет самой области. Свойства рамки содержатся в объекте Border области PlotArea. Цвет рамки может быть представлен как комбинация из трех цветов RGB или выбран из палитры. Толщина и стиль выбираются из конечного, определенного списка значений.
Function BorderPlotArea(Name:variant; Color,LineStyle,Weight:integer):boolean;
begin
BorderPlotArea:=true;
try
E.Charts.Item[name].PlotArea.Border.Color:=Color;
E.Charts.Item[name].PlotArea.Border.Weight:=Weight;
E.Charts.Item[name].PlotArea.Border.LineStyle:=LineStyle;
except
BorderPlotArea:=false;
end;
End;
Цветовая характеристика области построения диаграммы содержится в объекте Interior. Цвет области и рисунка заполнения может быть представлен как комбинация из трех цветов RGB или выбран из палитры. Вид рисунка заполнения выбирается из конечного, определенного списка значений. Функция BrushPlotArea устанавливает цветовые параметры области диаграммы.
Function BrushPlotArea(Name:variant; Color,Pattern,PatternColor:integer):boolean;
begin
BrushPlotArea:=true;
try
E.Charts.Item[name].PlotArea.Interior.Color:=Color;
E.Charts.Item[name].PlotArea.Interior.Pattern:=Pattern;
E.Charts.Item[name].PlotArea.Interior.PatternColor:=PatternColor;
except
BrushPlotArea:=false;
end;
End;
Фон области построения диаграммы может быть представлен не только в виде определенного узора и цветовой комбинации, но и в виде рисунка, загруженного из графического файла. Для этого используется метод UserPicture объекта Fill области PlotArea.
Function BrushPlotAreaFromFile(Name:variant;File_:string):boolean;
begin
BrushPlotAreaFromFile:=true;
try
E.Charts.Item[name].PlotArea.Fill.UserPicture(PictureFile:= File_);
E.Charts.Item[name].PlotArea.Fill.Visible:=True;
except
BrushPlotAreaFromFile:=false;
end;
End;
Заголовок диаграммы
Заголовок диаграммы имеет такие же параметры, как и любая область, но есть некоторые отличия. Ширина и высота заголовка определяется размером шрифта, и, в отличие от области диаграммы, важным параметром является текст надписи заголовка и сам шрифт как объект, входящий в ChartTitle. Рассмотрим основные свойства объекта ChartTitle. Заголовок и текст заголовка выводится при условии, что в поле HasTitle объекта Chart записано значение True, а поле Text объекта ChartTitle записан сам текст. Смотрите пример:
E.Charts.Item[name].HasTitle:=True;
E.Charts.Item[name].ChartTitle.Text:='Заголовок диаграммы';
Function TextChartTitle(Name:variant;text_:string):boolean;
begin
TextChartTitle:=true;
try
E.Charts.Item[name].HasTitle:=True;
E.Charts.Item[name].ChartTitle.Text:=text_;
except
TextChartTitle:=false;
end;
End;
Координаты заголовка содержатся в полях Left и Top объекта ChartTitle. Для перемещения заголовка запишите в эти поля новые значения координат. Для определения координат считайте значения из этих полей.
E.Charts.Item[name].ChartTitle.Left:=Left;
E.Charts.Item[name].ChartTitle.Top:=Top;
Function PositionChartTitle(Name:variant;Left,Top:real):boolean;
begin
PositionChartTitle:=true;
try
E.Charts.Item[name].ChartTitle.Left:=Left;
E.Charts.Item[name].ChartTitle.Top:=Top;
except
PositionChartTitle:=false;
end;
End;
Чтобы изменить визуальные параметры рамки, используйте объект Border и его поля Color (цвет), Weight (толщина) и LineStyle (стиль линии)
E.Charts.Item[name].ChartTitle.Border.Color:=Color;
E.Charts.Item[name].ChartTitle.Border.Weight:=Weight;
E.Charts.Item[name].ChartTitle.Border.LineStyle:=LineStyle;
Function BorderChartTitle(Name:variant;Color,LineStyle,Weight:integer):boolean;
begin
BorderChartTitle:=true;
try
E.Charts.Item[name].ChartTitle.Border.Color:=Color;
E.Charts.Item[name].ChartTitle.Border.Weight:=Weight;
E.Charts.Item[name].ChartTitle.Border.LineStyle:=LineStyle;
except
BorderChartTitle:=false;
end;
End;
Для заполнения цветом и узором области заголовка используйте объект Interior и его поля Color (цвет), Pattern (узор) и PatternColor (цвет узора).
E.Charts.Item[name].ChartTitle.Interior.Color:=Color;
E.Charts.Item[name].ChartTitle.Interior.Pattern:=Pattern;
E.Charts.Item[name].ChartTitle.Interior.PatternColor:=PatternColor;
Function BrushChartTitle(Name:variant;Color,Pattern,PatternColor:integer):boolean;
begin
BrushChartTitle:=true;
try
E.Charts.Item[name].ChartTitle.Interior.Color:=Color;
E.Charts.Item[name].ChartTitle.Interior.Pattern:=Pattern;
E.Charts.Item[name].ChartTitle.Interior.PatternColor:=PatternColor;
except
BrushChartTitle:=false;
end;
End;
Чтобы заполнить область заголовка рисунком из графического файла, используйте метод UserPicture объекта Fill. Чтобы этот рисунок стал видимым, запишите в поле Visible объекта Fill значение True.
E.Charts.Item[name].ChartTitle.Fill.UserPicture(PictureFile:= File_);
E.Charts.Item[name].ChartTitle.Fill.Visible:=True;
Function BrushChartTitleFromFile(Name:variant;File_:string):boolean;
begin
BrushChartTitleFromFile:=true;
try
E.Charts.Item[name].ChartTitle.Fill.UserPicture(PictureFile:=File_);
E.Charts.Item[name].ChartTitle.Fill.Visible:=True;
except
BrushChartTitleFromFile:=false;
end;
End;
Тип диаграммы
Тип диаграммы определяет, каким образом отображается информация: в виде плоских или объемных фигур или графиков, а также сам вид этих фигур. Существует около 70 типов диаграмм, и чтобы выбрать один из них, используется метод ApplyCustomType. В Delphi выбор типа диаграммы можно реализовать, используя функцию SetChartType.
Function SetChartType (Name:variant;ChartType:integer):boolean;
begin
SetChartType:=true;
try
E.Charts.Item[name].ApplyCustomType(ChartType:=ChartType);
except
SetChartType:=false;
end;
End;
Размещение диаграммы
Диаграмма может размещаться совместно с данными или на отдельном листе. Размещение диаграммы лучше совмещать с процессом ее создания, но можно выполнить эту процедуру и самостоятельно. При этом необходимо учитывать, что при изменении размещения меняется и имя диаграммы (не путать с названием). Для размещения диаграммы используйте функцию SetChartLocation, аргумент xlLocation которой может иметь одно из двух значений (xlLocationAsNewSheet или xlLocationAsObject).
Function SetChartLocation (var name:variant;sheet:variant; xlLocation:integer):boolean;
begin
SetChartLocation:=true;
try
name:=E.Charts.Item[name].Location(Where:=xlLocationAsObject,Name:=sheet).name;
except
SetChartLocation:=false;
end;
End;
Наклон и поворот
Наклон диаграммы можно выполнить на угол от -90° до +90°. Значения, выходящие за эти пределы, вызывают ошибку. Выбор угла поворота осуществляется записью значения угла в свойство Elevation объекта Chart. Поворот диаграммы осуществляется записью в поле Rotation объекта Chart значения угла поворота. Этот угол может иметь значения от 0° до 360°. Для задания углов наклона и поворота в приложениях на Delphi можно использовать функции ElevationChart и RotationChart.
Function ElevationChart (Name:variant;Elevation:real):boolean;
begin
ElevationChart:=true;
try
E.Charts.Item[name].Elevation:=Elevation;
except
ElevationChart:=false;
end;
End;
Function RotationChart(Name:variant;Rotation:real):boolean;
begin
RotationChart:=true;
try
E.Charts.Item[name].Rotation:=Rotation;
except
RotationChart:=false;
end;
End;
Легенда
Легенда диаграммы представляет собой подписи к той части, которая передает информацию в графическом виде. Как и любая область, она обладает типичными свойствами, присущими им. Есть одно отличие - шрифт элемента легенды. Чтобы легенда была видима на диаграмме, установите поле HasLegend объекта Chart в True.E.Charts.Item[name].HasLegend:=True. Затем можно установить координаты и размеры легенды, параметры границы (рамки) и области. Для этого используем следующие функции:
Установка размеров и координат.
Function PositionSizeLegend (Name:variant; Left,Top,Width,Height:real):boolean;
begin
PositionSizeLegend:=true;
try
E.Charts.Item[name].Legend.Left:=Left;
E.Charts.Item[name].Legend.Top:=Top;
E.Charts.Item[name].Legend.Width:=Width;
E.Charts.Item[name].Legend.Height:=Height;
except
PositionSizeLegend:=false;
end;
End;
Установка типа и цвета рамки легенды
Function BorderLegend (Name:variant; Color,LineStyle,Weight:integer):boolean;
begin
BorderLegend:=true;
try
E.Charts.Item[name].Legend.Border.Color:=Color;
E.Charts.Item[name].Legend.Border.Weight:=Weight;
E.Charts.Item[name].Legend.Border.LineStyle:=LineStyle;
except
BorderLegend:=false;
end;
End;
Установка цвета и типа узора области.
Function BrushLegend (Name:variant; Color,Pattern,PatternColor:integer):boolean;
begin
BrushLegend:=true;
try
E.Charts.Item[name].Legend.Interior.Color:=Color;
E.Charts.Item[name].Legend.Interior.Pattern:=Pattern;
E.Charts.Item[name].Legend.Interior.PatternColor:=PatternColor;
except
BrushLegend:=false;
end;
End;
Заливка области из файла.
Function BrushLegendFromFile (Name:variant;File_: string):boolean;
begin
BrushLegendFromFile:=true;
try
E.Charts.Item[name].Legend.Fill.UserPicture(PictureFile:=File_);
E.Charts.Item[name].Legend.Fill.Visible:=True;
except
BrushLegendFromFile:=false;
end;
End;
Шрифт элемента легенды.
Объект Legend имеет доступ к коллекции LegendEntries, посредством которой можно получить доступ к шрифту элемента легенды. Например: E.Charts.Item[name].Legend.LegendEntries.Item[LegendEntries].Font, где LegendEntries - индекс элемента. Чтобы согласовать поля объектов "Шрифт" в Excel и Delphi, напишем функцию FontToEFont, которая преобразует шрифт объекта Delphi в шрифт объекта Excel. Эту функцию можно будет использовать везде, где необходимо установить шрифт.
Function FontToEFont (font:Tfont;EFont:variant):boolean;
Begin
FontToEFont:=true;
try
EFont.Name:=font.Name;
if fsBold in font.Style
then EFont.Bold:=True // Жирный
else EFont.Bold:=False; // Тонкий
if fsItalic in font.Style
then EFont.Italic:=True // Наклонный
else EFont.Italic:=False; // Наклонный
EFont.Size:=font.Size; // Размер
if fsStrikeOut in font.Style
then EFont.Strikethrough:=True // Перечеркнутый
else EFont.Strikethrough:=False; // Перечеркнутый
if fsUnderline in font.Style
then EFont.Underline:=xlUnderlineStyleSingle // Подчеркивание
else EFont.Underline:=xlUnderlineStyleNone; // Подчеркивание
EFont.Color:=font.Color; // Цвет
except
FontToEFont:=false;
end;
End;
Функция FontLegendEntries устанавливает шрифт элемента(LegendEntries) легенды(Name).
Function FontLegendEntries(Name,LegendEntries:variant;
Font:TFont):boolean;
begin
FontLegendEntries:=true;
try
FontLegendEntries:=
FontToEFont(Font,E.Charts.Item[name].Legend.LegendEntries.Item[LegendEntries].Font);
except
FontLegendEntries:=false;
end;
End;
Подписи осей
Оси диаграммы могут иметь подписи, представляющие собой области и описываемые свойствами, присущими любым прямоугольным областям на диаграмме. Рассмотрим только запись текста и включение, выключение отображения объекта "подпись оси". Доступ ко всем полям и методам подписи осуществляется через коллекцию Axes, члены которой и есть ссылки на подписи. В приложениях Delphi запись текста в объект "подпись оси" можно реализовать с помощью функции AxisChart.
Function AxisChart (Name:variant;Category,Series,Value:string):boolean;
begin
AxisChart:=true;
try
if Category<>'' then E.Charts.Item[name].Axes[xlCategory].HasTitle:=True
else E.Charts.Item[name].Axes[xlCategory].HasTitle:=False;
if Series<>'' then E.Charts.Item[name].Axes[xlSeries].HasTitle:=True
else E.Charts.Item[name].Axes[xlSeries].HasTitle:=False;
if Value<>'' then E.Charts.Item[name].Axes[xlValue].HasTitle:=True
else E.Charts.Item[name].Axes[xlValue].HasTitle:=False;
E.Charts.Item[name].Axes[xlCategory].AxisTitle.Text:=Category;
E.Charts.Item[name].Axes[xlSeries].AxisTitle.Text:=Series;
E.Charts.Item[name].Axes[xlValue].AxisTitle.Text:=Value;
except
AxisChart:=false;
end;
End;
Стены и основание диаграммы
Стены представляют собой вертикальные области, ограничивающие графическую часть диаграммы, и описываются через свойства и методы объекта Walls. Этот объект имеет такие свойства, как цвет и стиль окаймления, стиль и цвет (заливка) области стен. Функции управления этими свойствами смотрите в приложении (www.kornjakov.ru/st2_6.zip), а здесь рассмотрим их фрагменты.
Цвет, толщина и стиль рамки окаймления:
E.Charts.Item[name].Walls.Border.Color:=Color;
E.Charts.Item[name].Walls.Border.Weight:=Weight;
E.Charts.Item[name].Walls.Border.LineStyle:=LineStyle;
Цвет, рисунок и цвет рисунка заполнения стен:
E.Charts.Item[name].Walls.Interior.Color:=Color;
E.Charts.Item[name].Walls.Interior.Pattern:=Pattern;
E.Charts.Item[name].Walls.Interior.PatternColor:=PatternColor;
Заливка области стен из файла:
E.Charts.Item[name].Walls.Fill.UserPicture(PictureFile:=File_);
E.Charts.Item[name].Walls.Fill.Visible:=True;
Основание графической части диаграммы - область, ограничивающая диаграмму внизу. Она описывается через свойства и методы объекта Floor. Этот объект обладает аналогичными свойствами, как и область стен. Вот несколько примеров их настройки из приложений Delphi.
Цвет, толщина и стиль линий - границы основания:
E.Charts.Item[name].Floor.Border.Color:=Color;
E.Charts.Item[name].Floor.Border.Weight:=Weight;
E.Charts.Item[name].Floor.Border.LineStyle:=LineStyle;
Цвет, рисунок и цвет рисунка области основания:
E.Charts.Item[name].Floor.Interior.Color:=Color;
E.Charts.Item[name].Floor.Interior.Pattern:=Pattern;
E.Charts.Item[name].Floor.Interior.PatternColor:=PatternColor;
Заливка области основания из файла:
E.Charts.Item[name].Floor.Fill.UserPicture(PictureFile:=File_);
E.Charts.Item[name].Floor.Fill.Visible:=True;
Серии коллекции
Рассмотрим серии коллекции - графики, набор фигур на диаграмме. Доступ к коллекциям получаем через объект SeriesCollection. Количество их зависит от размеров области данных диаграммы на рабочем листе. Чтобы получить его значение, считаем поле Count объекта SeriesCollection. Функция SeriesCount (для работы в среде Delphi) возвращает количество серий.
Function SeriesCount (Name:variant):integer;
begin
SeriesCount:=-1;
try
SeriesCount:=E.Charts.Item[name].SeriesCollection.Count;
except
SeriesCount:=-1;
end;
End;
Рассмотрим вид коллекции - вид фигур в коллекции (куб, пирамида и др). Для приложений можем использовать функцию BarShapeSeries для выбора любого из шести видов.
Function BarShapeSeries (Name:variant;series,BarShape:integer):boolean;
begin
BarShapeSeries:=true;
try
E.Charts.Item[name].SeriesCollection.Item[series].BarShape:=BarShape;
except
BarShapeSeries:=false;
end;
End;
Остальные параметры: параметры границы и областей коллекции аналогичны параметрам любых областей диаграммы. Краткий список в виде операторов для Delphi:
E.Charts.Item[name].SeriesCollection.Item[series].Border.Color:=Color;
E.Charts.Item[name].SeriesCollection.Item[series].Border.Weight:=Weight;
E.Charts.Item[name].SeriesCollection.Item[series].Border.LineStyle:=LineStyle;
E.Charts.Item[name].SeriesCollection.Item[series].Interior.Color:=Color;
E.Charts.Item[name].SeriesCollection.Item[series].Interior.Pattern:=Pattern;
E.Charts.Item[name].SeriesCollection.Item[series].Interior.PatternColor:=PatternColor;
E.Charts.Item[name].SeriesCollection.Item[series].Fill.UserPicture(PictureFile:=File_);
E.Charts.Item[name].SeriesCollection.Item[series].Fill.Visible:=True;
В приложении размещаем следующие кнопки:
«Заполнение данными»:
randomize;
SetRange('Лист1','A1','AAAA');
SetRange('Лист1','B1','BBBB');
for a_:=2 to 5 do begin
SetRange('Лист1','A'+inttostr(a_),a_-1);
SetRange('Лист1','B'+inttostr(a_),random(1000));
end;
«Новая диаграмма»:
AddChart(ChartName,xl3DColumn);
SetSourceData(1{ChartName},2,'A1:B6',xlRows);
Заголовок диаграммы
messagebox(handle,'','Заголовок диаграммы',0);
TextChartTitle(ChartName,'Заголовок диаграммы');
messagebox(handle,'','Новые координаты заголовка диаграммы',0);
PositionChartTitle(ChartName,1,1);
messagebox(handle,'','Рамка заголовка диаграммы',0);
BorderChartTitle(ChartName,RGB(100,150,245),1,1);
messagebox(handle,'','Цвет области заголовка диаграммы',0);
BrushChartTitle(ChartName,RGB(100,120,210),1,rgb(45,120,170));
messagebox(handle,'','Заливка области заголовка диаграммы из файла',0);
GetDir(0,dir_);
if not OpenPictureDialog1.Execute then begin ChDir(dir_); exit; end;
ChDir(dir_);
BrushChartTitleFromFile(ChartName,OpenPictureDialog1.FileName);
В GroupBox с именем «Область диаграммы» разместить кнопки:
«Стиль, цвет рамки»:
BorderChartArea(ChartName,rgb(100,200,250),xlDashDot,xlThin);
«Стиль, цвет области»:
BrushChartArea(ChartName,rgb(80,230,100),xlPatternCrissCross,rgb(210,80,150));
В GroupBox с именем «Область построения диаграммы» разместить кнопки:
«Координаты области»:
PositionPlotArea(ChartName,1,1,200,200);
«Стиль, цвет рамки»:
BorderPlotArea(ChartName,rgb(100,200,250),xlDashDot,xlThin);
«Стиль, цвет области»,
BrushPlotArea(ChartName,rgb(100,200,150),xlPatternCrissCross,rgb(200,100,50));
Задание для самостоятельного выполнения
Задание: с помощью среды программирования Delphi разработать приложение, позволяющее автоматизировать процесс создания электронной таблицы, ее заполнение, оформление, построение диаграмм. Задание выполнить по вариантам ( в скобках оценка за выполнение задания)