diff options
Diffstat (limited to 'trunk/ext/win32ole/sample/excel2.rb')
-rw-r--r-- | trunk/ext/win32ole/sample/excel2.rb | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/trunk/ext/win32ole/sample/excel2.rb b/trunk/ext/win32ole/sample/excel2.rb new file mode 100644 index 0000000000..dbe4178051 --- /dev/null +++ b/trunk/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(); + |