diff options
Diffstat (limited to 'ruby_1_8_5/ext/win32ole/sample/excel2.rb')
| -rw-r--r-- | ruby_1_8_5/ext/win32ole/sample/excel2.rb | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/ruby_1_8_5/ext/win32ole/sample/excel2.rb b/ruby_1_8_5/ext/win32ole/sample/excel2.rb new file mode 100644 index 0000000000..46f459b36b --- /dev/null +++ b/ruby_1_8_5/ext/win32ole/sample/excel2.rb @@ -0,0 +1,30 @@ +require 'win32ole' + +# -4100 is the value for the Excel constant xl3DColumn. +ChartTypeVal = -4100; + +# Creates OLE object to Excel +#excel = WIN32OLE.new("excel.application.5") +excel = WIN32OLE.new("excel.application") + +# Create and rotate the chart + +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; + +i = 30 +i.step(180, 10) do |rot| +# excelchart['Rotation'] = rot; + excelchart.rotation=rot; +end +# Done, bye + +excel.ActiveWorkbook.Close(0); +excel.Quit(); + |