求助怎么用代码做折线图

崔骁

姓名星期一星期二星期三星期四星期五
张三    53 63 68 95 52
李四    53 57 44 37 30
王为    39 23 26 40 26
韦小宝21 25 24 35 38
张无忌38 31 37 20 30
令狐冲40 32 28 35 36


目标是为分别为每个人的五条数据绘制一条折线图，然后让得到的六张图表有相同尺寸，并按两行三列排列整齐。要求，最左上角的图表的左上角距离工作表左上角为15,15；所有图表的尺寸为横向（宽）300，纵向（高）200。六张图表的标题都是对应的人物名称（这个在设定数据源的时候就能实现）。如何将上述内容通过VBA代码实现，先谢谢各位了。

smmorange

set objExcel = createObject（“excel.application”）
objExcel.visible = true
set objWorkbook = objExcel.workbooks.add()
ser objSheet = objWorkbook.worksheets(1)

objSheet.cells(1,1) = "行业"
objSheet.cells(2,1) = "电器"
objSheet.cells(3,1) = "数码"

objSheet.cells(1,2) = 数量
objSheet.cells(2,2) = 89
objSheet.cells(3,2) = 100

set objRange = objSheet.UsedRange
objRange.Select

set myCharts = objExcel.Charts
myCharts.add()

set objChart = myCharts(1)
objChart.Activate


objChart.hasLegend = true
objChart.ChartType = 5     'xlpie
'.....
objWorkbook.saveAs("F:\01\pie1.docx")


这段代码命名为xx.vbs
可以在Java中调用执行的


public class VbsTest {
       
        public static void main(String[] args) {
                buildWord();
        }
       
       
        public static void buildWord(){
                String[] cmd = new String[]{"wscript","F:/01/vbs/copyChart.vbs","param"};
                try {
                        Process process = Runtime.getRuntime().exec(cmd);
                        //val是返回值，返回0表示正常执行
                        int val = process.waitFor();
                       
                       
                } catch (IOException e) {
                        e.printStackTrace();
                } catch (InterruptedException e) {
                        e.printStackTrace();
                }

        }
       
}