清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>>

require 'win32ole' 


ChartTypeVal = 4100; 
excel = WIN32OLE.new("excel.application") 
excel['Visible'] = TRUE 
excel.Workbooks.Add() 
excel.Range("a1")['Value'] = 3 
excel.Range("a2")['Value'] = 2 
excel.Range("a3")['Value'] = 1 
excel.Range("a1:a3").Select() 

excelchart = excel.Charts.Add() 
excelchart['Type'] = ChartTypeVal 
30.step(180, 5) do |rot| 
    excelchart.rotation = rot 
    sleep(0.1) 
end 
excel.ActiveWorkbook.Close(0) 
excel.Quit()