# 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);