Chart in Excel

				
=**************************************
= Name: Chart in Excel
= Description:Makes a chart in Microsoft Excel
= By: Damian myerscough
=
= Returns:A Chart
=
= Assumes:This code uses Win32::OLE
=
=This code is copyrighted and has= limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=444&lngWId=6=for details.=**************************************

#!/usr/bin/perl
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';
my $Excel = Win32::OLE->new("Excel.Application");
$Excel->{Visible} = 1;
my $Book = $Excel->Workbooks->Add;
my $Sheet = $Book->Worksheets(1);
# Range Length satrts at: A1 and finishes at: H3
my $Range = $Sheet->Range("A1:H3");
 
 # My Value range which was on the survay 
$Range->{Value} =
[['My primary source of Linux help/support/advice',
'My local Linux User Group', 
'IRC channel (Which one - post, please)',
'Web forum (Which one - post, please)', 
'The companys sysadmins handle all that stuff',
'If I get stuck Linus comes to my house and helps me out ',
'I never need help. When Linus gets stuck, I help *him* out',
'RTFM; I use man pages books and other references most of the time',
'Now and then I hop on an email list or newsgroup (Which one? - post, please)'
],
 # My Results off the survay
[328, 301, 368, 33, 400, 346, 2634, 242]];
my $Chart = $Excel->Charts->Add;
 # Select what type of chart you want
$Chart->{ChartType} = xlAreaStacked;
$Chart->SetSourceData({Source => $Range, PlotBy => xlColumns});
$Chart->{HasTitle} = 1; 
 # Give the Chart a Title
$Chart->ChartTitle->{Text} = "This Survay was off Linux.com";