请教控制Excel中的Chart问题(100分)

  • 主题发起人 主题发起人 wwwsin
  • 开始时间 开始时间
W

wwwsin

Unregistered / Unconfirmed
GUEST, unregistred user!
控制Sheet中已经存在的Chart时,使用TExcelChart控件,代码如下:
ExcelChart1.ConnectTo(ExcelWorkBook1.Charts[1] as _chart)
系统运行出错,提示“无效索引”,希望大家帮忙解决。
 
是不是应该先激活,EXCEL没有编过,WORD先要ACTIVATE
 
也遇到这个问题

打开一个Excel文件的Sheet中已经有了Chart,怎么控制呢?没有头绪,比如说不知道这个Chart的名字怎么写代码啊?
 
问题已经解决了。我采用方法是:
不使用TExcelChart,使用OleVariant变量直接操作,例如取出指定表单中Chart的名字,如下。

function Get_Chart_Name(strSheetName:String):String;
var
ovTemp : OleVariant ;
oTemp : OleVariant ;
begin
Result := '' ;
try
ovTemp := ExcelWorkBook.Sheets[strSheetName] as _WorkSheet ;
oTemp := ovTemp.ChartObjects(1) ;
Result := oTemp.Chart.Name ;
except
end;
end ;
 
后退
顶部