如何在Perl中使用Win32::OLE往Excel表格中写入JPG图片

[「已注销」]

完整测试代码如下，重点请看红色注释部分，求赐教

use strict;
use warnings;
use Win32::OLE;
use File::Copy;
use Cwd;
use File::Path;

my $app_xls = Win32::OLE->new('Excel.Application', sub{$_[0]->Quit})
or die "Excel 初始化失败，你可能没有安装Excel！";
$app_xls->{DisplayAlerts} = 'False';

my $ddir = getcwd;
my $src_book = $app_xls->WorkBooks->add();#
my $dname = $ddir."/buy.xls";
$src_book->SaveAs($dname);
my $src_sheet = $src_book->Worksheets("Sheet1");
$src_sheet->Activate();

# 订单号写入是成功的
$src_sheet->Cells(1, 1)->{Value}="订单号";
#我知道下面这行，OLE有的Excel.Application有个Pictures.Insert接口，但是不知道怎么用，写入也是无效的，下面这行失败
$src_sheet->Pictures->Insert(2, 1, "DD/TP/1.jpg");

$src_book->Save();
$src_book->Close();

undef $src_book;
undef $src_sheet;

undef $app_xls;

[关山路遥]

excel表格能插入图片吗？

[「已注销」]

Excel是有这个功能可以插入图片的，所以应程序也是应该可以做到