Win32::OLE + Excel charts issue 1

[MoshiachNow]

Hi,

With my following code the chart is created having 2 issues:
1.Sorted by rows and not columns
2.Instaed of Headers it shows as "serias",so headers are not taken in account.
Will appreciate advise.
thanks

========================
$Range->{Value} = \@alert1;
$Range->Font->{Bold} = 1;
#print STDOUT "A1:H1\n";
# Add data to spreadsheet
$Range = $Sheet->Range("A2:H10");
$Range->{Value} = \@Bars;

my $Chart = $Excel->Charts->Add;
$Chart->{ChartType} = '3';
#Line chart type
$Chart->SetSourceData({Source => $Range, PlotBy => 'xlColumns'});
$Chart->{'HasTitle'} = 1;
$Chart->ChartTitle->{Text} = "taskmon on $computer from $DATE8";


Long live king Moshiach !

http://www.noahide.com

 

[dmazzini]

I would suggest:

Open a new workbook
Record a new macro
Create a graph manually
Go to Excel VBA Editor
Copy VBA Code
Convert it to Object Oriented Language.

That´s what I do and it works fine using Win32::Ole Module.

Cheers






dmazzini
GSM/UMTS System and Telecomm Consultant

 

[MoshiachNow]

Amazing !!!!
great thanks.

Long live king Moshiach !

http://www.noahide.com

 

[MoshiachNow]

Still the same with updated code - does not bringthe right chart type and sorting by columns ...

$Range = $Sheet->Range("A1:$range4");
my $Chart = $Excel->Charts->Add;
$Chart->{ChartType} = 'xlLineMarkers'; #Line chart type
$Chart->SetSourceData({Source => $Range, PlotBy => 'xlColumns'});
$Chart->{'HasTitle'} = 1;
$Chart->ChartTitle->{Text} = "taskmon on $computer from $DATE8";

# Save workbook to file
unlink "$TEMP\\chart.xls" if -f "$TEMP\\chart.xls";
$Book->SaveAs("$TEMP\\chart.xls");
$Book->Close;

Long live king Moshiach !

http://www.noahide.com