- or download this
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Office';
use Win32::OLE::Const 'Microsoft PowerPoint';
use strict;
- or download this
$Win32::OLE::Warn = 3; # die on errors
- or download this
my $filename = "c:\\temp\\testpower.ppt";
- or download this
print( "Starting Powerpoint Object\n" );
my $power = Win32::OLE->GetActiveObject('Powerpoint.Application') ||
Win32::OLE->new('Powerpoint.Application', 'Quit');
- or download this
print( "Creating a presentation\n" );
my $ppt = $power->Presentations->Add();
$ppt->SaveAs($filename);
- or download this
print( "Creating a slide\n" );
my $slide = $ppt->Slides->Add(1, ppLayoutBlank);
$ppt->SaveAs($filename);
- or download this
my $pname = 'C:\WINNT\Web\Wallpaper\Fall Memories.jpg';
my $shape = $slide->Shapes->AddPicture( $pname, msoFalse,
...
$shape->ScaleHeight( 0.5, msoTrue, msoScaleFromTopLeft );
$shape->ScaleWidth( 0.5, msoTrue, msoScaleFromTopLeft );
$ppt->SaveAs($filename);
- or download this
print( "Adding a 4 wide by 3 high table\n" );
my $table = $slide->Shapes->AddTable( 3, 4, 1, 100 );
...
}
}
$ppt->SaveAs($filename);