Help for this page

Select Code to Download


  1. or download this
    $presentation->SaveAs("SAVED_" . $filename);
$presentation->Close;
undef $ppt; # Clean up Powerpoint
$mw->messageBox (-title => "message", -message=>"DONE!", -icon=> 'info
+');
  2. or download this
    our $ppt;
sub save_PPT {
...
            'PowerPoint.Application', sub { $_[0]->Quit }
        ) or return 'error';
# ---