Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.08.04;
Скачать: CL | DM;

Вниз

Помогите нарисаовать график в Excele   Найти похожие ветки 

 
Alex_x ©   (2003-07-21 10:07) [0]

создаю график: graf:= Excel.WorkBooks[1].WorkSheets[1].ChartObjects.Add(0, 0, 600, 400);
но дальше не выходит задать ему диапазон данных с листа, по аналогии з VB не проходит

вот так я делал на бейсике:
Set co = objWorksheet.ChartObjects.Add(0, 0, 600, 400)
co.Chart.ChartWizard Source:=objWorksheet.Range("A1:D4"), _
Gallery:=xlLine, PlotBy:=xlColumns, _
CategoryLabels:=1, SeriesLabels:=1, HasLegend:=1
co.Chart.HasTitle = True
co.Chart.ChartArea.Font.Size = 8
If Check1.value = 1 Then
co.Chart.HasDataTable = True
co.Chart.DataTable.HasBorderOutline = True
End If


 
AbrosimovA ©   (2003-07-21 13:59) [1]

procedure TMainForm.ChartData;
begin
//Подготовка и вывод данных на график----------------------------
XRange:=Worksheet1.Range["A2","A10"];//Данные для графика(ось Х)
YRange:=Worksheet1.Range["B2","B10"];//Данные для графика(ось Y)
Chart1.Chart.SeriesCollection.Add(YRange);//Вывод данных по Y
Chart1.Chart.Axes(xlCategory).CategoryNames:=XRange;//Вывод
данных по оси X
//---------------------------------------------------------------

Chart1.Chart.SeriesCollection(1).ChartType:= xlLineMarkers;
Chart1.Chart.HasTitle:=true;//Отображать титул
Chart1.Chart.HasLegend:=false; //Не отображать легенду
Chart1.Chart.ChartTitle.Text:="График 1"; //Текст титула
Chart1.Chart.ChartTitle.Interior.Color:=RGB(0, 255, 0);//Цвет
фона титула
Chart1.Chart.Axes(xlValue).TickLabels.NumberFormat:= "0.00";
Chart1.Chart.Axes(xlValue).HasMinorGridlines:= True;
Chart1.Chart.Axes(xlValue).MajorGridlines.Border.Color:=
RGB(133,133,133);
Chart1.Chart.Axes(xlValue).MinorGridlines.Border.Color:=
RGB(133,133,133);
Сhart1.Chart.Axes(xlValue).MajorGridlines.Border.LineStyle:=
xlDot;
Chart1.Chart.Axes(xlValue).MinorGridlines.Border.LineStyle:=
xlDot;
Chart1.Chart.Axes(xlCategory).HasMajorGridlines:= True;
Chart1.Chart.Axes(xlCategory).HasMinorGridlines:= True;
Chart1.Chart.Axes(xlCategory).MajorGridlines.Border.Color:=
RGB(133,133,133);
Chart1.Chart.Axes(xlCategory).MinorGridlines.Border.Color:=
RGB(133,133,133);
Chart1.Chart.Axes(xlCategory).MajorGridlines.Border.LineStyle:=
xlDot;
Chart1.Chart.Axes(xlCategory).MinorGridlines.Border.LineStyle:=
xlDot;
Chart1.Chart.ChartArea.Border.ColorIndex:= 5;//Цвет рамки
end;



Страницы: 1 вся ветка

Текущий архив: 2003.08.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
14-10358
shark
2003-07-17 21:01
2003.08.04
online RPG


14-10442
Пубертанец
2003-07-18 09:21
2003.08.04
Что вообще обозначает


14-10422
ruslan_as
2003-07-17 17:55
2003.08.04
Как уравнять значения DBLookupComboBox1 и DBLookupComboBox2


7-10470
Pahsik
2003-05-24 04:12
2003.08.04
Добавление юзера к файлу


14-10451
Sugrob
2003-07-18 12:11
2003.08.04
Нужнен TTreeView с CheckBox-ами для отображения из таблиц