WPS文字里折线图通过et表格实现的一种方法

function chart_et_to_wps(){

let etapp = CreateObject("ket.application");

etapp.Workbooks.Add();

etapp.Workbooks.Item(1).ActiveSheet.Range("A1:C4").Value2 =[ ["","数智1","数智2"],["2025-08-01",1,2],["2025-08-02",3,4],["2025-08-03",5,6]];

let chartobj = etapp.Workbooks.Item(1).ActiveSheet.ChartObjects().Add(50,40,200,100);

chartobj.Chart.ChartType = xlLine;

chartobj.Chart.SetSourceData(etapp.Workbooks.Item(1).ActiveSheet.Range("A1:C4"),xlRows);

chartobj.Copy();

Application.ActiveDocument.Range(0,0).Paste();

}