Help for this page

Select Code to Download

Select or download this

use Win32::OLE;
use Cwd;
...
$PptApp = Win32::OLE->new ('Powerpoint.Application');
$PptApp->{Visible} = 1;
$PpptApp = Presentations(Presentation1)->Open("$input"), ReadOnly ->Tr
+ue;

Select or download this

Sub Open_Slide()
'
...
    Presentations.Add WithWindow:=msoTrue
    ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(I
+ndex:=1, Layout:=ppLayoutBlank).SlideIndex
End Sub