在Spreadsheet :: WriteExcel（perl）饼图中更多格式化

Question

有谁知道是否可以在饼图中添加更多格式？例如，显示图形上每个切片的百分比或每个切片的标签显示在下一个/上面？而不是只有一个简单的传说？

谢谢！

Answer 1

这是不可能与Spreadsheet::WriteExcel但它可能与Excel::Writer::XLSX。

下面是一个例子：

#!/usr/bin/perl 

use strict; 
use warnings; 
use Excel::Writer::XLSX; 

my $workbook = Excel::Writer::XLSX->new('chart_pie.xlsx'); 
my $worksheet = $workbook->add_worksheet(); 
my $bold  = $workbook->add_format(bold => 1); 

# Add the worksheet data that the charts will refer to. 
my $headings = [ 'Category', 'Values' ]; 
my $data = [ 
    [ 'Apple', 'Cherry', 'Pecan' ], 
    [ 60,  30,  10  ], 
]; 

$worksheet->write('A1', $headings, $bold); 
$worksheet->write('A2', $data); 

# Create a new chart object. In this case an embedded chart. 
my $chart = $workbook->add_chart(type => 'pie', embedded => 1); 

# Configure the series. 
$chart->add_series(
    name  => 'Pie sales data', 
    categories => [ 'Sheet1', 1, 3, 0, 0 ], 
    values  => [ 'Sheet1', 1, 3, 1, 1 ], 
    data_labels => { value => 1 }, 
); 

# Add a title. 
$chart->set_title(name => 'Popular Pie Types'); 

# Set an Excel chart style. Colors with white outline and shadow. 
$chart->set_style(10); 

# Insert the chart into the worksheet (with an offset). 
$worksheet->insert_chart('C2', $chart, 25, 10); 

__END__ 

这是显示在图表它：