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…
	
	Add table
		Add a link
		
	
		Reference in a new issue