怎么把OleVariant所指对象转成excelOleChart对象呢?

[dxh2002]

我在使用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对象呢?

[dxh2002]

决定采用 maxtool(≮From NingBoo≯) 的方式了

>>to aiirii(ari-爱的眼睛)
>>OleVariant.chart as
>>類似, 看如何

是何意思，没看懂

但是若在word中用
Selection.InlineShapes.AddOLEObject ClassType:="MSGraph.Chart.8", _
LinkToFile:=False, DisplayAsIcon:=False

插入的图象该如何处理?

[maxtool]

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

[maxtool]

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

把编辑后的xls放到word里面去~~~

[aiirii]

OleVariant.chart as
類似, 看如何