做统计图时用MSCHART控件的问题！！！

Question

做统计图时用MSCHART控件很不爽，做起来的统计图很不好看，高手们，有没有好的方法呢，做成EXCEL图该怎么做，有例子嘛？

Answer 1

有方法
用excel写一个模板的宏,然后将数据写入到excel的指定位置生成图表.
Dim waijiaji As Excel.Application
Dim x1book As Excel.Workbook
Dim x1sheet As Excel.WorksheetSet waijiaji = CreateObject("Excel.Application")
Set x1book = waijiaji.Workbooks.Open(App.Path + "\excel\a.xls")
Set x1sheet = x1book.Worksheets(1)
x1sheet.Cells(2, 1) = "试验"
x1sheet.Cells(2, 8) = Text1(4).Text
x1sheet.Cells(2, 10) = Text1(5).Text