8

できればC＃またはPerlで、これを実行するコードスニペットを探しています。

これが大きな仕事ではないことを願っています;）

4

2 に答える 2

27

C:\presentation1.ppt以下は、スライドを開き、C:\Presentation1\slide1.jpgなどとして保存します。

相互運用アセンブリを入手する必要がある場合は、Office インストール プログラムの [ツール] から入手するか、ここ (office 2003)からダウンロードできます。新しいバージョンの Office を使用している場合は、そこから他のバージョンへのリンクを見つけることができるはずです。

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);
    }
  }
}

編集： 出力解像度を指定できるため、エクスポートを使用するSinanのバージョンは少し良いオプションのようです。C# の場合、上記の最後の行を次のように変更します。

file.Export(@"C:\presentation1.jpg", "JPG", 1024, 768);
于 2009-06-24T16:30:15.920 に答える
7

Kevが指摘しているように、これを Web サーバーで使用しないでください。ただし、次の Perl スクリプトは、オフライン ファイル変換などにはまったく問題ありません。

#!/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 "$@\n" if $@;

    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;
}
于 2009-06-24T13:21:17.813 に答える