#Global Powerpoint COM Objects.
use Win32::OLE;

my $PPt;
my $PPtPresentation;
my $PPtSSWindow;
my $PPtSSView;

$PPt = Win32::OLE->new("PowerPoint.Application") || die "Could not start PowerPoint.Application\n";
  
$PPtPresentation = $PPt->Presentations->Open( $filename );

$PPtSSWindow = $PPtPresentation->SlideShowSettings->Run();
        
$PPtSSView = $PPtSSWindow->View();

foreach my $shapes ( Win32::OLE::Enum->All($PPtSSView->Slide->{'Shapes'} ) )
{
   my $animationSettings = $shapes->{'AnimationSettings'};	
   
   # ?set value like this?   
   $animationSettings->{'TextLevelEffect'} = 0;
   $animationSettings->{'EntryEffect'} = 0;
   $animationSettings->{'Animate'} = 0;

   print "$animationSettings->{'TextLevelEffect'},";
   print "$animationSettings->{'EntryEffect'},";
   print "$animationSettings->{'Animate'}\n";
}

##</code><code>##

Win32::OLE(0.1502) error 0x80020009: "Exception occurred"
    in PROPERTYPUT "EntryEffect" at pdp_ppt.pl line 429
0,257,0
OLE exception from "Microsoft PowerPoint 2000":