我在使用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对象呢?
想在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对象呢?
Selection.InlineShapes.AddOLEObject (ClassType:='Excel.Sheet.8', FileName:=
'C:\A.xls', LinkToFile:=False,DisplayAsIcon:=False)把编辑后的xls放到word里面去~~~
類似, 看如何
>>OleVariant.chart as
>>類似, 看如何是何意思,没看懂但是若在word中用
Selection.InlineShapes.AddOLEObject ClassType:="MSGraph.Chart.8", _
LinkToFile:=False, DisplayAsIcon:=False插入的图象该如何处理?