>>992

Perlを使ってPowerPointでいくつかのグラフや画像をスライドに貼り付けていく作業の中で
「マウスクリック時の動作として指定ファイルのハイパーリンクを開く」
というのだけがどうしてもうまくいかないのでその部分の記述を教えて欲しくて書き込みました。

ドキュメントは5.6.xにもあるので見てみました。
OLDでの基本的なExcelやWordの動きのサンプルが載っていましたが
今回のものにはあまり参考になりませんでした。
一応これまでもPowerPointでグラフを挿入したり、
Excelで表を作りその文字列に同ブック内別シートの
指定セルへのハイパーリンクとかはやっているのですが、
どうにも今回のPowerPointでスライドに貼り付けた画像に
ハイパーリンクを設定するという作業がうまくいきません。

my $ppt = Win32::OLE->new('PowerPoint.Application') or die "PowerPoint start Error";
my $doc = $ppt->{Presentations}->Add(msoTrue);
$ppt->ActivePresentation->Slides->add(1,1);
my $pic_file = 'C:\test\test.bmp';
my $NewPic = $ppt->ActivePresentation->Slides(1)->Shapes->AddPicture($pic_file, 0, 1, 225, 115, 285, 345);

これでPowerPointの起動からスライドを１つ作ってそこへ画像の貼り付けまで出来ます。
この続きでその貼り付けた画像をマウスでクリックした時の動作として
その画像をハイパーリンクで開くという事をしたいのです。

my $NewMouse = $NewPic->ActionSettings(ppMouseClick);
$NewMouse->{Hyperlink}->{Address} = $pic_file;

こんな感じとかいろいろやってみているのですがマウスクリック時の動作の設定は全く変わりません。
その設定方法を教えて欲しいのです。
開いているファイルに対する処理の記述だけで結構ですので宜しくお願いします。