如何将TChart中的饼图或者曲线图导出到word里面,或者保存成jpg或者其他图片格式?只要能保存成为电子的即可,谢谢!

解决方案 »

  1.   

    可以分享一下吗??[email protected]
    谢谢!
      

  2.   

    把它的canvas 画到一个bitmap中然后把bitmap保存到word中去
      

  3.   

    procedure TForm1.Button1Click(Sender: TObject);////////将chart图中的画copy到image中去
    var
      Bitmap: TBitmap;
      MyRect, MyOther: TRect;
    begin  MyRect := Rect(0,0,chart1.Width,chart1.Height);  MyOther := Rect(0,0,chart1.Width,chart1.Height);  series1.AddPie(2134,'asdfasdf',21);
      image1.canvas.CopyRect(MyRect,chart1.Canvas.ReferenceCanvas,MyOther)
    end;procedure TForm1.Button2Click(Sender: TObject);///将image中的画存到'c:\aaa.bmp'中
    begin
      image1.Picture.SaveToFile('c:\aaa.bmp');
    end;