Delphi操作EXCEL生成折线图，饼图，柱状图_delphi折线图,delphi饼图资源-CSDN文库

共2个文件

xls：1个

txt：1个

需积分: 50 10 浏览量 2018-08-06 09:33:53 上传评论 2 收藏 24KB RAR 举报

在 Delphi 开发环境中，有时候我们需要对 Excel 进行编程操作，例如生成各种图表，如折线图、饼图和柱状图。本教程将详细讲解如何利用 Delphi 的内置功能，通过 CreateOleObject 函数来操控 Excel 对象模型，从而实现无需额外第三方控件即可创建这些图表的方法。你需要在 Delphi 项目中导入 `ComObj` 单元，它提供了对 COM 对象的基本支持。然后，你可以使用 `CreateOleObject` 函数实例化一个 Excel 应用程序对象： ```delphi uses ComObj; var ExcelApp: Variant; begin ExcelApp := CreateOleObject('Excel.Application'); end; ``` 接下来，你可以创建一个新的工作簿或打开已有的工作簿，并创建新的工作表： ```delphi var Workbook, Worksheet: Variant; begin Workbook := ExcelApp.Workbooks.Add; Worksheet := Workbook.Worksheets[1]; end; ``` 在工作表中输入数据是生成图表的前提。例如，你可以使用以下代码在 A1 到 C5 区域填充数据： ```delphi for i := 1 to 5 do begin for j := 1 to 3 do begin Worksheet.Cells[i, j].Value := '你的数据'; end; end; ``` 现在我们可以创建图表了。这里以生成折线图为例： ```delphi var Chart: Variant; begin Chart := Worksheet.Shapes.AddChart(xlLine, 10, 10, 400, 300); // xlLine 是折线图类型 Chart.Chart.SetSourceData(Worksheet.Range['A1', 'C5']); // 设置数据源 end; ``` 饼图和柱状图的创建类似，只需更改图表类型即可。饼图类型为 `xlPie`，柱状图类型为 `xlColumnClustered`： ```delphi // 饼图 Chart := Worksheet.Shapes.AddChart(xlPie, 10, 10, 400, 300); Chart.Chart.SetSourceData(Worksheet.Range['A1', 'C5']); // 柱状图 Chart := Worksheet.Shapes.AddChart(xlColumnClustered, 10, 10, 400, 300); Chart.Chart.SetSourceData(Worksheet.Range['A1', 'C5']); ``` 为了自定义图表的外观和属性，你可以访问 `Chart` 对象的各个属性。例如，设置图表标题： ```delphi Chart.Chart.HasTitle := True; Chart.Chart.ChartTitle.Text := '图表标题'; ``` 还可以调整轴标签、网格线、系列颜色等。例如，设置 X 轴和 Y 轴的标题： ```delphi Chart.Chart.Axes(xlCategory).HasTitle := True; Chart.Chart.Axes(xlCategory).AxisTitle.Text := 'X 轴标题'; Chart.Chart.Axes(xlValue).HasTitle := True; Chart.Chart.Axes(xlValue).AxisTitle.Text := 'Y 轴标题'; ``` 完成所有操作后，记得保存工作簿并关闭 Excel 应用程序： ```delphi Workbook.SaveAs('你的文件路径.xlsx'); ExcelApp.Quit; ``` 通过这种方式，你可以在 Delphi 应用程序中灵活地生成和控制 Excel 图表，而无需依赖任何第三方组件。这种方式虽然需要对 Excel 对象模型有一定的了解，但能够实现更定制化的功能，且代码结构相对简洁。这个压缩包文件可能包含了示例代码或者演示程序，你可以下载后参考具体实现细节。在实际应用中，根据你的数据和需求，可以调整上述代码，实现更复杂、更个性化的图表生成。

资源推荐

资源详情

资源评论

收起资源包目录

DELPHI操作EXCEL生成折线图，饼图，柱状等.rar （2个子文件）

DELPHI操作EXCEL生成折线图，饼图，柱状等

Delphi实现代码.txt 13KB

操作效果图.xls 344KB

procedure Create_Chart(AFileName :string); var TmpFileName :string; xlapp: variant; xlssheet1, xlssheet2, xlssheet3, xlssheet4, xlssheet5, xlssheet6, xlssheet7, xlssheet8, xlssheet9: variant; l_left, l_top, l_Width, l_Height :Integer; chart1:variant; series,se:variant; I, ExcelCount :Integer; AX,BX,CX,DX :string; d_MinimumScale,d_MaximumScale :Double; Range1,Range2,Range3 :variant; begin if not VarIsEmpty(xlapp) then begin xlapp.DisplayAlerts := False; xlapp.Quit; VarClear(xlapp); end; try xlapp := CreateOleObject('Excel.Application'); except hsMsgBox('操作Excel失败', '导出报表', MB_ICONWARNING+MB_OK); Exit; end; xlapp.WorkBooks.Open(AFileName); xlssheet1 := xlapp.Workbooks[1].WorkSheets[1]; xlssheet2 := xlapp.Workbooks[1].WorkSheets[2]; xlssheet3 := xlapp.Workbooks[1].WorkSheets[3]; xlssheet4 := xlapp.Workbooks[1].WorkSheets[4]; xlssheet5 := xlapp.Workbooks[1].WorkSheets[5]; xlssheet6 := xlapp.Workbooks[1].WorkSheets[6]; xlssheet1.Columns.EntireColumn.AutoFit; xlssheet2.Columns.EntireColumn.AutoFit; xlssheet3.Columns.EntireColumn.AutoFit; xlssheet4.Columns.EntireColumn.AutoFit; xlssheet5.Columns.EntireColumn.AutoFit; xlssheet6.Columns.EntireColumn.AutoFit; xlapp.Workbooks[1].WorkSheets[1].Columns[1].ColumnWidth := 30; //图1 ExcelCount := xlssheet1.Usedrange.Rows.Count; l_left:= 1; for I := 1 to ExcelCount do begin if Pos('折线图',xlssheet1.Range['A' + IntToStr(I)].Value) > 0 then begin Break; end; end; l_top := xlssheet1.Range['A' + IntToStr(I+1) ,'A' + IntToStr(I+1)].top + 10; l_Width := 700; l_Height:= xlssheet1.Range['A' + IntToStr(I+1) ,'A' + IntToStr(I+1)].RowHeight*15; //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; //3.给二维图赋值 series := chart1.chart.SeriesCollection; //4.给二维图加上标题 chart1.chart.HasTitle := true; chart1.chart.ChartTitle.Characters.Text := ''; chart1.chart.ChartTitle.Font.size := 12; //(xlValue, xlPrimary) 左标 chart1.Chart.Axes(xlValue, xlPrimary).HasTitle := True; chart1.Chart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text := '说明'; //( xlCategory , xlPrimary )下标 chart1.Chart.Axes(xlCategory, xlPrimary).HasTitle := True; chart1.Chart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text := '说明'; chart1.Chart.Axes(xlCategory, xlPrimary).HasMinorGridlines := True; chart1.Chart.Axes(xlCategory, xlPrimary).HasMajorGridlines := True; chart1.Chart.Axes(xlCategory, xlPrimary).MinorUnitIsAuto := True; chart1.chart.Axes(xlCategory, xlPrimary).ScaleType := xlScaleLinear; chart1.chart.Axes(xlCategory, xlPrimary).ticklabels.Orientation := xlTickLabelOrientationUpward; //第一条线 ExcelCount := xlssheet2.Usedrange.Rows.Count; series.NewSeries; se := chart1.chart.seriescollection(1); se.Name :='收益率'; AX := 'A' +InttoStr(ExcelCount); se.XValues := '=sheet2!A1:'+ AX; BX := 'B' +InttoStr(ExcelCount); se.Values := '=sheet2!B1:'+ BX; series.NewSeries; se := chart1.chart.seriescollection(2); se.Name :='基准收益率'; AX := 'A' +InttoStr(ExcelCount); se.XValues := '=sheet2!A1:'+ AX; CX := 'C' +InttoStr(ExcelCount); se.Values := '=sheet2!C1:'+CX; //自定义水平坐标（可以删除这一段，excel自动会水平坐标） d_MinimumScale := 0; d_MaximumScale := 0; if ExcelCount > 0 then begin dateseparator := '-'; // 日期分隔符 shortdateformat := 'yy-mm-dd'; // 短日期格式 longdateformat := 'yyyy-mm-dd'; // 长日期格式 application.UpdateFormatSettings := false; d_MinimumScale := Trunc(StrToDate(StringReplace(xlssheet2.Range['A1'].Value, '/', '-', [rfReplaceAll]))); d_MaximumScale := Trunc(StrToDate(StringReplace(xlssheet2.Range['A' + IntToStr(ExcelCount)].Value, '/', '-', [rfReplaceAll]))); chart1.chart.Axes(xlCategory).MinimumScale := d_MinimumScale; chart1.chart.Axes(xlCategory).MaximumScale := d_MaximumScale; end; //图2 ExcelCount := xlssheet1.Usedrange.Rows.Count; l_left:= 1; for I := 1 to ExcelCount do begin if Pos('资产',xlssheet1.Range['A' + IntToStr(I)].Value) > 0 then begin Break; end; end; l_top := xlssheet1.Range['A' + IntToStr(I+7) ,'A' + IntToStr(I+7)].top + 10; l_Width := 700; l_Height:= xlssheet1.Range['A' + IntToStr(I+7) ,'A' + IntToStr(I+7)].RowHeight*14; //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; //3.给二维图赋值 series := chart1.chart.SeriesCollection; //4.给二维图加上标题 chart1.chart.HasTitle := true; chart1.chart.ChartTitle.Characters.Text := ''; chart1.chart.ChartTitle.Font.size := 12; //(xlValue, xlPrimary) 左标 chart1.Chart.Axes(xlValue, xlPrimary).HasTitle := True; chart1.Chart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text := '说明'; //( xlCategory , xlPrimary )下标 chart1.Chart.Axes(xlCategory, xlPrimary).HasTitle := True; chart1.Chart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text := '说明'; 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; 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!A1:'+ AX; BX := 'B' +InttoStr(ExcelCount); se.Values := '=sheet3!B1:'+ BX; series.NewSeries; se := chart1.chart.seriescollection(2); se.Name :='中'; AX := 'A' +InttoStr(ExcelCount); se.XValues := '=sheet3!A1:'+ AX; CX := 'C' +InttoStr(ExcelCount); se.Values := '=sheet3!C1:'+CX; series.NewSeries; se := chart1.chart.seriescollection(3); se.Name :='小'; AX := 'A' +InttoStr(ExcelCount); se.XValues := '=sheet3!A1:'+ AX; DX := 'D' +InttoStr(ExcelCount); se.Values := '=sheet3!D1:'+DX; d_MinimumScale := 0; d_MaximumScale := 0; if ExcelCount > 0 then begin dateseparator := '-'; // 日期分隔符 shortdateformat := 'yy-mm-dd'; // 短日期格式 longdateformat := 'yyyy-mm-dd'; // 长日期格式 application.UpdateFormatSettings := false; d_MinimumScale := Trunc(StrToDate(StringReplace(xlssheet3.Range['A1'].Value, '/', '-', [rfReplaceAll]))); d_MaximumScale := Trunc(StrToDate(StringReplace(xlssheet3.Range['A' + IntToStr(ExcelCount)].Value, '/', '-', [rfReplaceAll]))); chart1.chart.Axes(xlCategory).MinimumScale := d_MinimumScale; chart1.chart.Axes(xlCategory).MaximumScale := d_MaximumScale; end; //图3 ExcelCount := xlssheet1.Usedrange.Rows.Count; l_left:= 1; for I := 1 to ExcelCount do begin if Pos('折线图',xlssheet1.Range['A' + IntToStr(I)].Value) > 0 then begin Break; end; end; l_top := xlssheet1.Range['A' + IntToStr(I+1) ,'A' + IntToStr(I+1)].top + 10; l_Width := 700; l_Height:= xlssheet1.Range['A' + IntToStr(I+1) ,'A' + IntToStr(I+1)].RowHeight*15; chart1 := xlssheet1.chartObjects.Add(l_left,l_top,l_Width,l_Height); //2.选择二维图的形态 chart1.Activate; chart1.chart.charttype := xlXYScatterLines; chart1.chart.Legend

评论收藏

内容反馈