When I run your code I get the same error because --of course-- I do not have the strMgrErr.pptx file on my system.use strict; use warnings; use Win32::OLE; use Win32::OLE::Const qw( Microsoft.PowerPoint ); use Win32::OLE::Enum; $Win32::OLE::Warn = 3; my $app = get_powerpoint(); $app->{Visible} = 1; my $presentation = $app->Presentations->Open('strMgrErr.pptx'); sub get_powerpoint { my $app; eval { $app = Win32::OLE->GetActiveObject('PowerPoint.Application' +) }; die "$@\n" if $@; unless ( defined $app ) { $app = Win32::OLE->new( 'PowerPoint.Application', sub { $_[0]- +>Quit } ) or die sprintf( "Cannot start PowerPoint: '%s'\n", Win32::OLE->Last +Error ); } return $app; }
Replacing the file-name with a valid path-and-file-name, the code runs as expected.
CountZero
A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James
My blog: Imperial DeltronicsIn reply to Re: Error while opening .pptx file
by CountZero
in thread Error while opening .pptx file
by newperl_wisdom
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |