我在使用olecontainer  操纵word
想在word 中插入一个Excel图表对象,可是如何捕捉到它,进而编辑其中的数据?在word 的VBA中可以Dim chart as Excel.Chart
set chart = Selection.InlineShapes.AddOLEObject(ClassType:="Excel.Chart.8", FileName:= "", LinkToFile:=False, DisplayAsIcon:=False).OLEFormat.Object这样你就可以用Excel的对象模型来编辑这个chart对象了。
但是如何将上述代码转成Delphi呢
var
  MyObject : olevariant;
begin
  MyWord:=OleContainer1.OleObject.Application;
  MyObject:=MyWord.Selection.InlineShapes.AddOLEObject( ClassType:='Excel.Chart.8',LinkToFile:=False, DisplayAsIcon:=False);  MyObject.width:=200;
  MyObject.Height:=200;.....
end怎么把OleVariant所指对象转成excelOleChart对象呢?

解决方案 »

  1.   

    其实我觉得你还是先编辑A.xls,然后用
    Selection.InlineShapes.AddOLEObject (ClassType:='Excel.Sheet.8', FileName:=
            'C:\A.xls', LinkToFile:=False,DisplayAsIcon:=False)把编辑后的xls放到word里面去~~~
      

  2.   

    OleVariant.chart as
    類似, 看如何
      

  3.   

    决定采用  maxtool(≮From NingBoo≯)  的方式了>>to     aiirii(ari-爱的眼睛) 
    >>OleVariant.chart as
    >>類似, 看如何是何意思,没看懂但是若在word中用
    Selection.InlineShapes.AddOLEObject ClassType:="MSGraph.Chart.8", _
            LinkToFile:=False, DisplayAsIcon:=False插入的图象该如何处理?
      

  4.   

    我觉得用ole控制word的话鼠标定位是一件很困难的事~~~比如你插入了一个xls,但是编程的时候,你很难把鼠标从文本编辑处移入xls中.