【结贴】操作Excel图表代码如何翻译？

dupit

操作如下：选择图表页，右键‘源数据’，修改‘数据区域’。
宏命令代码如下：
  ActiveChart.PlotArea.Select
    ActiveChart.SetSourceData Source:=Sheets("123").Range("A3:E10"), PlotBy:= _ xlColumns

在平台中如何翻译？

zfang

http://bbs.justep.com/forum.php?mod=viewthread&tid=27065

dupit

如下代码：
    d1 := DispatchHelper.Create(worksheet.PropertyGet('PlotArea', []));
    d1.InvokeMethod('Select',[]);
    d2 := DispatchHelper.Create(worksheet.PropertyGet('SetSourceData', []));
    d2.PropertyPut('Source',['Sheet1','A3:E10']);

提示'PlotArea'方法无效

zfang

2楼链接中的3楼，你看看。

dupit

3楼的方法看了，如下  ：

Function Select()
    Excel.PlotArea 的成员   select事件没有其他参数啊

dupit

你那电话 咋打不通

zfang

不会吧？电话可以通的呀。

d1 := DispatchHelper.Create(worksheet.PropertyGet('PlotArea', []));你是这句有问题，那就要找'PlotArea'对应的是属于哪个对象。（他是chart的对象，那你怎么能拿worksheet去做呢。）

dupit

代码如下：
    oExcel:= ComObj.CreateOleObject('Excel.Application');
    app := DispatchHelper.Create(oExcel);
    app.PropertyPut('Visible', [False]);
    app.PropertyPut('DisplayAlerts', [False]);

    workbooks := DispatchHelper.Create(app.PropertyGet('Workbooks',[]));
    workbook := DispatchHelper.Create(workbooks.InvokeMethod('Open',[False],[fName]));
    worksheets := System.DispatchHelper.Create(workbook.PropertyGet('charts',[]));

    worksheet := System.DispatchHelper.Create(worksheets.PropertyGet('Item',[2]));
    d1 := DispatchHelper.Create(worksheet.PropertyGet('PlotArea', []));
    d1.InvokeMethod('Select',[]);
    d2 := DispatchHelper.Create(worksheet.PropertyGet('SetSourceData', []));
    d2.PropertyPut('Source',['Sheet1','A3:E10']);

看下是那里不合理

zfang

上面的代码运行时哪里报错就说明用的不对。具体需要对照着vba帮助看。

dupit

worksheets := System.DispatchHelper.Create(workbook.PropertyGet('charts',[]));
    worksheet := System.DispatchHelper.Create(worksheets.PropertyGet('Item',[2]));
    worksheet.InvokeMethod('Activate',[]);
    d1 := DispatchHelper.Create(worksheet.PropertyGet('PlotArea', []));
    d1.InvokeMethod('Select',[]);
    d2 := System.DispatchHelper.Create(worksheet.InvokeMethod('SetSourceData',[]));  //---这句报错
    d2.PropertyPut('Source',['Sheet1','A3:E10']);

现在创建'SetSourceData'方法时 提示参数不对 ，帮我看看.