Delphi 操作EXCEL折线图

//1.增加一个二维图chartobjects.add(Left, Top, 宽，高)
chart1 := xlssheet1.chartObjects.Add(l_left,l_top,l_Width,l_Height);

//2.选择二维图的形态
chart1.Activate;
chart1.chart.charttype := xlXYScatterLines;

//线条说明位置
chart1.chart.Legend.Position := xlLegendPositionTop;
//chart1.chart.Legend.Top := 5;

//3.给二维图赋值
series := chart1.chart.SeriesCollection;

//4.给二维图加上标题
chart1.chart.HasTitle := true;
chart1.chart.ChartTitle.Characters.Text := 'A';
chart1.chart.ChartTitle.Font.size := 12;

//(xlValue, xlPrimary) 左标

chart1.Chart.Axes(xlValue, xlPrimary).HasTitle := True;
chart1.Chart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text := 'A';

//( xlCategory , xlPrimary )下标

chart1.Chart.Axes(xlCategory, xlPrimary).HasTitle := True;
chart1.Chart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text := 'B';
chart1.Chart.Axes(xlCategory, xlPrimary).HasMinorGridlines := True;
chart1.Chart.Axes(xlCategory, xlPrimary).HasMajorGridlines := True;
chart1.Chart.Axes(xlCategory, xlPrimary).MaximumScaleIsAuto := True;
chart1.Chart.Axes(xlCategory, xlPrimary).MinimumScaleIsAuto := True;
chart1.Chart.Axes(xlCategory, xlPrimary).MinorUnitIsAuto := True;
chart1.chart.Axes(xlCategory, xlPrimary).ScaleType := xlScaleLinear;
//xlTickLabelOrientationAutomatic -4105 由 Microsoft Word 設定文字方向。
//xlTickLabelOrientationDownward -4170 文字向下。
//xlTickLabelOrientationHorizontal -4128 字元水平排列。
//xlTickLabelOrientationUpward -4171 文字向上。
//xlTickLabelOrientationVertical -4166 字元垂直排列。
chart1.chart.Axes(xlCategory, xlPrimary).ticklabels.Orientation := xlTickLabelOrientationUpward;

//第一条线
ExcelCount := xlssheet3.Usedrange.Rows.Count;
series.NewSeries;
se := chart1.chart.seriescollection(1);
se.Name :='线条说明';
AX := 'A' +InttoStr(ExcelCount);
se.XValues := '=sheet3!A2:'+ AX;
BX := 'B' +InttoStr(ExcelCount);
se.Values := '=sheet3!B2:'+BX;

//第二条线
series.NewSeries;
se := chart1.chart.seriescollection(2);
se.Name :='线条说明';
AX := 'A' +InttoStr(ExcelCount);
se.XValues := '=sheet3!A2:'+AX;
CX := 'C' +InttoStr(ExcelCount);
se.Values := '=sheet3!C2:'+CX;

//设置数据集为次要坐标轴
se.AxisGroup := xlSecondary;
//设置次有坐标轴说明（ xlValue , xlSecondary )右标
chart1.Chart.Axes(xlValue, xlSecondary).HasTitle := True;
chart1.Chart.Axes(xlValue, xlSecondary).AxisTitle.Characters.Text := 'C';

Delphi 操作EXCEL折线图相关推荐

用delphi操作excel
用delphi操作excel (一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObj ...
echarts 横坐标显示一个月,excel折线图横坐标最后一个点选择数据选不上是什么原因？...
excel折线图横坐标最后一个点选择数据选不上是什么原因? 如果你说的是折线图横坐标选中的数据最后一个无法显示在横坐标上您可以尝试一下可以右击横坐标轴-设置坐标轴格式-选择大小与属性-对其方式-文 ...
excel折线图坐标轴刻度不均匀设置的方法教程
在wps表格里,可以通过制作不均匀的图表坐标刻度,简洁明了的反应项目数据的变化,那要怎么自己设置不均匀的轴刻度呢?来学习下具体的设置教程吧.只需将横坐标对应的列的日期格式设置为文本格式即可解决,具体操 ...
php怎么创建两条折线图,excel折线图怎么做两条
excel折线图怎么做两条? 1.随便编两组数据,这两组数据横坐标的值以及数量都不相同,要求将这两组数据做成一张折线图. 2.首先选中第一组数据,点击插入--散点图--选择带直线和数据标记的散点图(就 ...
java实现移动平均值复杂度,在EXCEL折线图里增加平均线和上下限|excle统计图怎设置上下限...
excel折线图怎么插入上下限以Excel2016版本为例: 1.首先选中数据单元点击"插入"选项. 2击插入图表中的"折线图",将其插入到中. 3.右键点击 ...
html更改纵坐标数值,excel折线图纵坐标轴数值与实际值不一致该怎么办?折线图怎么修改纵坐标...
小编每天为你介绍实用excel教程,如果快速掌握excel?那肯定要多看教程啦,会计网为你整理经典实用的excel教程,图文并茂,希望能给读者们一些帮助. excel折线图纵坐标轴数值与实际值不一致该 ...
画Excel折线图的一点记录
提示:文章写完后,目录可以自动生成,如何生成可参考右边的帮助文档文章目录一.画Excel折线图的一点记录二.步骤提示:以下是本篇文章正文内容,下面案例可供参考一.画Excel折线图的一点记录 ...
html画折线图没有坐标数值,教大家excel折线图纵坐标轴数值与实际值不一致怎么办...
近日有关于excel折线图纵坐标轴数值与实际值不一致怎么办的问题受到了很多网友们的关注,大多数网友都想要知道excel折线图纵坐标轴数值与实际值不一致怎么办的具体情况,那么关于到excel折线图纵坐标 ...
python excel 折线图
在 Python 中,可以使用一些第三方库来生成 Excel 折线图.其中,最常用的库可能是 pandas 和 openpyxl. 下面是使用 pandas 库创建 Excel 折线图的示例代码: i ...

Delphi 操作EXCEL折线图

Delphi 操作EXCEL折线图相关推荐

最新文章

热门文章