1、ex.Range("A2").Value = 8ex.Range("A3"稆糨孝汶;).Value = 16ex.Range("A4").Value = 7ex.Range("A5").Value = 22ex.Range("A6").Value = 13ex.Range("A7").Value = 15ex.Range("A8").Value = 11ex.Range("B1").Value = "系列2"
2、x.Range("B2").Value = 5ex.Range("B3媪青怍牙").Value = 6ex.Range("B4").Value = 17ex.Range("B5").Value = 10ex.Range("B6").Value = 3ex.Range("B7").Value = 9ex.Range("B8").Value = 16'设定表格样式ex.Range("A1", "B8").Borders.LineStyle = xlContinuous
3、ex.Cells(, 1).ColumnWidth = 25ex.Cells(, 2).ColumnWidth = 25’插入折线图
4、Set Ct = ex.Worksheets("sheet1").ChartObjects.Add(0, 130, 350, 250)Ct.Chart.ChartWizard Source:=ex.Worksheets("sheet1").Range("A2:B8"), _gallery:=xlLine, Title:="New Chart"ex.Visible = True
5、'打印预揽ex.ActiveWindow.SelectedSheets.PrintPreview'关闭EXCEL
6、ex.Visible = Falseex.Worksheets("sheet1").ChartObjects.Deleteex.ActiveWorkbook.Close savechanges:=False
7、PrintFunc_Err:Set ex = NothingSet Ct = Nothingend Sub
