Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c