Помогите нарисаовать график в 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;

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