如何用Delphi控制Word图表

[galaxy_wag]

用Delphi里面的wordapplication、worddocument可以控制word的文档编辑，但是如果要在word中画图怎么办？我现在找不到如何在delphi中控制word画图的方法，哪怕是控制插入一个外部可以自己定义路径的图片（这个图片起码我要可以更换吧，这样才能实行我通过换图片来变相画图的目的）。自己在操作word的时候发现word插入的图表实际上是内嵌了一个Excel的Chart，而图表格式是Microsoft Graph这个冬冬的资料好像也很少...
敬请高手赐教！

[galaxy_wag]

顶下，有高手知道解决方案么？

[vfork]

OleContraint控件可以吧,好象在system标签下面

[galaxy_wag]

那个只能插入一个完整的对象啊，就像插入一个DOC文档，但是在这个文档内部好像无法再插入其他对象了

[alexanda2000]

var
WordApp,WordDoc:variant;
begin
WordApp := CreateOLEObject( 'Word.application' );
WordDoc := WordApp.Documents.Add;
WordApp.visible := True;
WordDoc.Shapes.AddPicture('f:\aa.bmp'); //插入图片

[hhzqf1980]

顶

[galaxy_wag]

多谢楼上，不知道有没有直接控制Word下那个Microsoft Graph的方法？这样生成的图表还可以随时由用户直接在Word下修改，作为图片插入的话继续修改图表就不可能了。

[alexanda2000]

你的Microsoft Graph指的是什么?

[galaxy_wag]

你用Word插入一个图表，它就会自动生成一个示例图，这个就是一个Microsoft Graph的图，其实就是内嵌的一个Excel一样的，双击它可以编辑图里头的数据，以Excel的表格形式显示，这样就可以使用户很方便的进行图形的编辑修改，一旦数据有变化直接改了表格的数据就变化可以显示在图表上面了。

[alexanda2000]

改了最后一句就行了。

WordDoc.Shapes.AddOleObject('MSGraph.Chart.8');

[galaxy_wag]

多谢，但是这样插入的仅仅是一副模拟图啊，这样仅仅是代替用户完成了点击“插入”选择“图表”按下左键的过程，我的目的是要替用户用预先的数据画好某些数据表，不知道这个数据包应该怎么样去控制他？希望继续指教

[galaxy_wag]

顶下