如何控制Excel插入图表

如何控制Excel插入图表?? 问题点数：100、回复次数：5Top

1 楼Rubi（浪迹Csdn各个板块!MS－Borland－IBM－SUN－水区－在去哪里呢？）回复于 2006-03-04 20:46:45 得分 0

在excel中插入图片？Top

2 楼biao_227（飙）回复于 2006-03-04 23:43:34 得分 20

转载  
  可以把dbchart的savetofile方法保存到一个临时文件，然后在插入到excel中  
  给一个插入图片的例子你看看  
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      aWorkBook   :   _Workbook;  
      aSheet   :   Variant;  
  begin  
      if   OpenPictureDialog1.Execute   then  
      begin  
          ExcelApplication1.Connect;  
          aWorkBook   :=   ExcelApplication1.Workbooks.Add(EmptyParam,   0);  
          aSheet   :=   aWorkBook.Sheets[1];  
          aSheet.Range['f1'].Select;//这里是定位图片插入的位置  
          asheet.Pictures.Insert(OpenPictureDialog1.FileName);  
          ExcelApplication1.Visible[0]   :=   True;  
          ExcelApplication1.Disconnect;  
      end;  
  end;      
  Top

3 楼etomahawk（一意孤行）回复于 2006-03-05 16:00:23 得分 0

我想可能是我没有说清楚，我是想在Excel中插入一个图表。  
          在Excel中做表的过程：  
          先输入数据，比如象下面的一组数据：  
              No       Data  
              1         1.5  
              2         1.2  
              3         3.1  
              4         0.5  
              5         4.5  
              ........  
          然后，点菜单   插入-》图表   -》选择图表类型   -》选择数据源   -》设置图表标题等....  
          我就是想用我的程序来控制这一个作图表的过程，插入数据已经搞定，就是不知道如何插入图表、控制数据源和设置标题。Top

4 楼smartcomplier（坚强的泡沫）回复于 2006-03-08 16:56:32 得分 0

用VBA吧,最近两天我也在搞这个东西.  
   
  Top

5 楼biao_227（飙）回复于 2006-03-08 17:06:13 得分 80

使用Delphi   控制Excle二维图  
  在Form中分别放入ExcelApplication,   ExcelWorkbook和ExcelWorksheet  
  var   asheet1,achart,   range:variant;  
   
  1）选择当第一个工作薄第一个工作表  
  asheet1:=ExcelApplication1.Workbooks[1].Worksheets[1];  
   
  2）增加一个二维图  
  achart:=asheet1.chartobjects.add(100,100,200,200);  
   
  3）选择二维图的形态  
  achart.chart.charttype:=4;  
   
  4）给二维图赋值  
  series:=achart.chart.seriescollection;  
  range:=sheet1!r2c3:r3c9;  
  series.add(range,true);  
   
  5）加上二维图的标题  
  achart.Chart.HasTitle:=True;  
  achart.Chart.ChartTitle.Characters.Text:=’   Excle二维图’      
   
  6）改变二维图的标题字体大小  
  achart.Chart.ChartTitle.Font.size:=6;  
   
  7）给二维图加下标说明  
  achart.Chart.Axes(xlCategory,   xlPrimary).HasTitle   :=   True;  
  achart.Chart.Axes(xlCategory,   xlPrimary).AxisTitle.Characters.Text   :=   '下标说明';  
   
  8）给二维图加左标说明  
  achart.Chart.Axes(xlValue,   xlPrimary).HasTitle   :=   True;  
  achart.Chart.Axes(xlValue,   xlPrimary).AxisTitle.Characters.Text   :=   '左标说明';  
   
  9）给二维图加右标说明  
  achart.Chart.Axes(xlValue,   xlSecondary).HasTitle   :=   True;  
  achart.Chart.Axes(xlValue,   xlSecondary).AxisTitle.Characters.Text   :=   '右标说明';  
   
  10）改变二维图的显示区大小  
  achart.Chart.PlotArea.Left   :=   5;  
  achart.Chart.PlotArea.Width   :=   223;  
  achart.Chart.PlotArea.Height   :=   108;  
   
  11）给二维图坐标轴加上说明  
  achart.chart.seriescollection[1].NAME:='坐标轴说明';  
     
   
  Top

相关问题

• excel
• 控制
• 数据
• 选择
• achart
• 图表
• 插入
• asheet
• xlprimary
• excelapplication

• 帖主：etomahawk
• biao_227
• biao_227

• Visual C++类图书
• Visual C++类源码下载