Word里插入Excel表出现的问题，新手求解答

Question

使用的是如下语句
WordApplication.Selection.Inlineshapes.AddOleObject(ClassType='Excel.Chart'); （原代码是Delphi，差不多是这样）程序运行成功后生成出来的文件显示不完全，每次必须是双击之后，该工作表才会展开，现在做的项目是自动生成Word文档，不用人工干预就能生成一份文档，所以想问有没有高手知道如何在代码里设置。excelwordExcel.Chart

Answer 1

好吧，原代码是Delphi，且很简单，就是利用AddOleObject生成一个Excel图表看看效果，也就没有进行更多的设置。unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, WordXP, ExcelXP, OleServer, ComObj, ComCtrls, OfficeXP, Provider, OleCtnrs;type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
implementation{$R *.dfm}
procedure TForm1.Btn1Click(Sender: TObject);
var
  FComApp, Workbook1: OleVariant;
  FwordDoc: OleVariant;
begin
  FComApp := CreateOLEObject('Word.Application');
  FComApp.Visible := False;
  FComApp.Documents.Add;
  FwordDoc := FComApp.ActiveDocument;
  Workbook1 := FComApp.Selection.InlineShapes.AddOleObject(ClassType := 'Excel.Chart');
  FWordDoc.SaveAs('C:\newone.docx');
  FWordDoc.Saved := True;
  FWordDoc.Close;
  FWordApp.Quit;
end;end.
添加之后它自动化很多设置，但是打开Word文档的时候显示不完全，可见上图，怎么样能在代码把它显示出来，是设置那个属性呢？？

Answer 2

没有人回答么，看来我应该放到Delphi去的。