RubyでパワーポイントのスライドをPNGにする。

WindowsでPPTをJPGやPNGの画像にしたいなと思った。DrawToBitMapがよく解らなかったから
PowerPointのAPIを叩くことにした。

PowerPointの画像化

SlideSaveAsPNG.rb

#!/usr/bin/env ruby

require 'win32ole'
#PPTアプリを起動し接続
pp = WIN32OLE.new 'PowerPoint.Application'
#PPTのメインWindowを描画
pp.Visible = true if pp.Visible == 0
#イベントを扱えるようにする。
ev = WIN32OLE_EVENT.new pp ,'EApplication'
#PP定義済み変数をRuby変数にマッピングする。
class PowerPointConst
end
WIN32OLE.const_load pp, PowerPointConst
#パワーポイントのファイルを開く
pp.Presentations.Open 'C:\Users\takuya\sample.ppt'
#パワーポイントのファイルをPNGで保存
pp.Presentations.Item(1).SaveAs 'C:\Users\takuya\sample', PowerPointConst::PpSaveAsPNG

ま、あとはコレを、サーバー側で定期実行したら・・・SlideShare程度なら作れるよね。