Perl使用Win32 :: OLE模块Excel 2007-不能生成图表

Question

我正在运行perl64上的简单脚本来在excel上生成图表，但我得到的错误没有生成任何图表。
它打开excel表单，将数据写入表单但没有图表。

Win32::OLE(0.1709) error 0x80020003: "Member not found" 
    in PROPERTYPUT "ChartType" at C:\path\test.pl line 20. 

这里是我的系统规格

• PERL版本：主动Perl的64 v5.16.3
• WIN32 OLE：0.1709
• Excel版本：Excel 2007中SP3

灿任何人请给我一些关于如何删除此错误并生成图表的输入？

use strict; 
use Win32::OLE; 
use Win32::OLE::Const 'Microsoft Excel'; 

my $Excel = Win32::OLE->new("Excel.Application"); 
$Excel->{Visible} = 1; 
$Win32::OLE::Warn = 3; 
my $Book = $Excel->Workbooks->Add; 
my $Sheet = $Book->Worksheets(1); 
my $Range = $Sheet->Range("A2:C7"); 
$Range->{Value} = 
[['Delivered', 'En route', 'To be shipped'], 
[504, 102, 86], 
[670, 150, 174], 
[891, 261, 201], 
[1274, 471, 321], 
[1563, 536, 241]]; 

my $Chart = $Excel->Charts->Add; 
$Chart->{ChartType} = xlAreaStacked; 
$Chart->SetSourceData({Source => $Range, PlotBy => xlColumns}); 
$Chart->{HasTitle} = 1; 

Answer 1

尝试将此行更改：​​

$Chart->SetSourceData({Source => $Range, PlotBy => xlColumns}); 

这一个：

$Chart->SetSourceData($Range, xlColumns);