Thanks!That fix the "style" of the graph! Unfortunately, I still didn't get the XAxis Values. Did you still get enough time to help me again? Here's my *new* code # Create the chart #
$chart = $sheet->ChartObjects->Add(1, 175, 457, 300);
$chart->Chart->{ChartType} = xl3DColumnClustered;
$chart->Chart->ChartWizard({Source =>$sheet->Range("D5:D12")});
$chart->Chart->SeriesCollection(1)->{XValues}=$sheet->Range("D5:D12");
$chart->Chart->SeriesCollection(1)->{HasDataLabels} = 1;
$chart->Chart->SeriesCollection(1)->Interior->{ColorIndex} = 36;
$chart->Chart->{HasLegend} = $vtfalse;
$chart->Chart->{HasDataTable} = $vtfalse;
with ($chart->Chart,
'Elevation' => 15,
'Perspective' => 0,
'Rotation' => 20,
'RightAngleAxes' => $vttrue,
'HeightPercent' => 100,
'AutoScaling' => $vttrue);
with ($chart->Chart->Axes(xlCategory),
'TickLabelSpacing' => 1,
'TickMarkSpacing' => 1);
Thanks again! |