mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
* ext/win32ole/sample/excel2.rb: remove some commented-out code.
rotate graph more slowly to see graph clearly. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@47478 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
parent
36dc2e4bcf
commit
9d0a6f3db7
2 changed files with 7 additions and 5 deletions
|
@ -1,3 +1,8 @@
|
||||||
|
Tue Sep 9 21:55:39 2014 Masaki Suketa <masaki.suketa@nifty.ne.jp>
|
||||||
|
|
||||||
|
* ext/win32ole/sample/excel2.rb: remove some commented-out code.
|
||||||
|
rotate graph more slowly to see graph clearly.
|
||||||
|
|
||||||
Tue Sep 9 19:52:33 2014 Koichi Sasada <ko1@atdot.net>
|
Tue Sep 9 19:52:33 2014 Koichi Sasada <ko1@atdot.net>
|
||||||
|
|
||||||
* gc.c: rename rb_objspace_t::marked_objects to marked_slots.
|
* gc.c: rename rb_objspace_t::marked_objects to marked_slots.
|
||||||
|
|
|
@ -4,11 +4,9 @@ require 'win32ole'
|
||||||
ChartTypeVal = -4100;
|
ChartTypeVal = -4100;
|
||||||
|
|
||||||
# Creates OLE object to Excel
|
# Creates OLE object to Excel
|
||||||
#excel = WIN32OLE.new("excel.application.5")
|
|
||||||
excel = WIN32OLE.new("excel.application")
|
excel = WIN32OLE.new("excel.application")
|
||||||
|
|
||||||
# Create and rotate the chart
|
# Create and rotate the chart
|
||||||
|
|
||||||
excel.visible = TRUE;
|
excel.visible = TRUE;
|
||||||
excel.Workbooks.Add();
|
excel.Workbooks.Add();
|
||||||
excel.Range("a1").value = 3;
|
excel.Range("a1").value = 3;
|
||||||
|
@ -18,13 +16,12 @@ excel.Range("a1:a3").Select();
|
||||||
excelchart = excel.Charts.Add();
|
excelchart = excel.Charts.Add();
|
||||||
excelchart.type = ChartTypeVal;
|
excelchart.type = ChartTypeVal;
|
||||||
|
|
||||||
i = 30
|
i = 0
|
||||||
i.step(180, 10) do |rot|
|
i.step(180, 10) do |rot|
|
||||||
# excelchart['Rotation'] = rot;
|
|
||||||
excelchart.rotation=rot;
|
excelchart.rotation=rot;
|
||||||
|
sleep 0.1
|
||||||
end
|
end
|
||||||
# Done, bye
|
# Done, bye
|
||||||
|
|
||||||
excel.ActiveWorkbook.Close(0);
|
excel.ActiveWorkbook.Close(0);
|
||||||
excel.Quit();
|
excel.Quit();
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue