如何将chart中显示的图形导入到word中??

Question

请问如何将不定数量的chart统计图形导入至word中??------------------------
Email:[email protected]
------------------------

Answer 1

将chart存成图片或复制到剪切版
chart6又这功能
下载地址：
  51delphi.com

Answer 2

to ： xidongs(小妖 妖怪也能编程的，你不知道吗？)
delphi6自带的chart不行???
能否举例示之??

Answer 3

to feicui0128(翡翠剑心) :
在这个问题上我不想再用第三方控件了。

Answer 4

uses comobj;procedure TForm1.Button1Click(Sender: TObject);
var w:Variant;
begin
    Chart1.CopyToClipboardBitmap;
    w:=createoleobject('word.application');
    w.documents.add;
    w.documents.item(1).paragraphs.item(w.documents.item(1).paragraphs.count).range.Paste;
    w.visible:=true;
end;

Answer 5

to zhouhaijun(zhouhj) :
错误提示：此方法或属性无效，因为剪帖板是空的或无效的。..

Answer 6

不可能吧，我用的chart是additional栏的，调试都能正常运行的