2009-06-24 6 views

Odpowiedz

6

Jak Kev Zwraca uwagę, nie należy używać tego na serwerze WWW. Jednak poniższy skrypt Perl jest perfekcyjnie w trybie offline konwersji plików itp:

#!/usr/bin/perl 

use strict; 
use warnings; 

use Win32::OLE; 
use Win32::OLE::Const 'Microsoft PowerPoint'; 
$Win32::OLE::Warn = 3; 

use File::Basename; 
use File::Spec::Functions qw(catfile); 

my $EXPORT_DIR = catfile $ENV{TEMP}, 'ppt'; 

my ($ppt) = @ARGV; 
defined $ppt or do { 
    my $progname = fileparse $0; 
    warn "Usage: $progname output_filename\n"; 
    exit 1; 
}; 

my $app = get_powerpoint(); 
$app->{Visible} = 1; 

my $presentation = $app->Presentations->Open($ppt); 
die "Could not open '$ppt'\n" unless $presentation; 

$presentation->Export(
    catfile($EXPORT_DIR, basename $ppt), 
    'JPG', 
    1024, 
    768, 
); 

sub get_powerpoint { 
    my $app; 
    eval { $app = Win32::OLE->GetActiveObject('PowerPoint.Application') }; 
    die "[email protected]\n" if [email protected]; 

    unless(defined $app) { 
     $app = Win32::OLE->new('PowerPoint.Application', 
      sub { $_[0]->Quit } 
     ) or die sprintf(
      "Cannot start PowerPoint: '%s'\n", Win32::OLE->LastError 
     ); 
    } 
    return $app; 
} 
22

otworzy C:\presentation1.ppt i zapisać slajdy jak C:\Presentation1\slide1.jpg itp

Jeśli chcesz poznać zespół współdziałania dodaje się, że jest dostępny w sekcji "Narzędzia" w programie instalacyjnym pakietu Office lub można go pobrać z wersji here (office 2003). Powinieneś być w stanie znaleźć linki do innych wersji stamtąd, jeśli masz nowszą wersję biura.

using Microsoft.Office.Core; 
using PowerPoint = Microsoft.Office.Interop.PowerPoint; 

namespace PPInterop 
{ 
    class Program 
    { 
    static void Main(string[] args) 
    { 
     var app = new PowerPoint.Application(); 

     var pres = app.Presentations; 

     var file = pres.Open(@"C:\Presentation1.ppt", MsoTriState.msoTrue, MsoTriState.msoTrue, MsoTriState.msoFalse); 

     file.SaveCopyAs(@"C:\presentation1.jpg", Microsoft.Office.Interop.PowerPoint.PpSaveAsFileType.ppSaveAsJPG, MsoTriState.msoTrue); 
    } 
    } 
} 

Edit: Sinan's version użyciu eksportu wydaje się być nieco lepszym rozwiązaniem, ponieważ można określić rozdzielczość wyjściową. W przypadku języka C# zmień ostatnią linię powyżej na:

+2

+1 dla rozwiązania C# (kiedy mogę ponownie głosować, co powinno zająć około ośmiu godzin ;-) –

+1

To jest doskonałe. Dla wszystkich użytkowników pakietu Office 2010 i późniejszych, biblioteka "Microsoft.Office.Core" [lib jest w rzeczywistości biblioteką COM] (http://stackoverflow.com/questions/5932794/microsoft-office-core-reference-missing), nie rozszerzenie, które musi być załadowane. –

Powiązane problemy