Ruby 在 Excel 中插入图表并进行旋转

fff2001

ruby代码

1. require 'win32ole'
   
2. 
   
3. 
   
4. ChartTypeVal = 4100;
   
5. excel = WIN32OLE.new("excel.application")
   
6. excel['Visible'] = TRUE
   
7. excel.Workbooks.Add()
   
8. excel.Range("a1")['Value'] = 3
   
9. excel.Range("a2")['Value'] = 2
   
10. excel.Range("a3")['Value'] = 1
    
11. excel.Range("a1:a3").Select()
    
12. 
    
13. excelchart = excel.Charts.Add()
    
14. excelchart['Type'] = ChartTypeVal
    
15. 30.step(180, 5) do |rot|
    
16.     excelchart.rotation = rot
    
17.     sleep(0.1)
    
18. end
    
19. excel.ActiveWorkbook.Close(0)
    
20. excel.Quit()

复制代码