TexPointなるものを試してみたんですが、TeXで書いたものをPowerpoint文書
のあるページに張り付けることはできますが、TeXで書いたnページ(n>1)の文書
をそのままPowerpointの文書nページに埋め込んでしまうことはできなさそうで
すね。
それができると楽なんですが、いちいちTeXの出力を1ページ毎に分解して
Powerpointの各ページに取り込むことなく、単一操作でそれができるような手段っ
て、ありますでしょうか? ある事情で、書くのはTeXだけを使いたいが、最終的
な表示はどうしてもPowerpointでなければならなくなりそうなのです。
>> TexPointなるものを試してみたんですが、TeXで書いたものをPowerpoint文書
...
>>て、ありますでしょうか? ある事情で、書くのはTeXだけを使いたいが、最終的
>>な表示はどうしてもPowerpointでなければならなくなりそうなのです。
こんばんは, 宮本です。
最近 prosper というクラスファイルを知り, もっぱらそれでプレゼンを
やっています。
prosper は LaTeX2e で使えるクラスファイルで, 最終的に PDF ファイルを
作成し, ポスターの場合にはそのままカラー印刷で, オーラル発表の場合には
Acrobat Reader の全画面表示で行ないます。これで発表時にはマシンや OS
に依存しなくて済みます。
カラフルな背景をつけたり, 見出しのスタイルを見栄えよくしたりの他にも,
一枚のスライドで 一行づつ表示したり, ちょっと気の利いたページのめくり
方くらいのアニメーションもできます。LaTeX2e なので本文の綺麗さや図の
張り込みなども普段通りにできます。私は
http://rd.cc.kyushu-u.ac.jp/~daisuke/prosper/
にある九州大学情報基盤センター 全国共同利用版広報に載った記事あたりを
参照しています。
--
Ryo MIYAMOTO; rm...@cc.hirosaki-u.ac.jp;
要するにPDFにするんですよね。今回の私の問題は「TeXでプレゼンをしたい」
ではなくて、「TeXから最終的には *Powerpointで* プレゼンができるものにな
らねばならない」なので、残念ながらこれでは条件に合わないんです。
# PDFファイルをそのままPowerpointでプレゼンってできましたっけ?
発表はPowerPoint指定という学会は珍しくありませんから、同様に苦労している人
も多いかも知れません。
一つの解決策として、TeXで作成したプレゼンテーションをページごとに分割して
、emfに変換させた後、PowerPointに取り込むようなプログラムをPowerpointの
VBAとバッチプログラムの組み合わせで開発すると何とかかりそうな気もします。
psファイルかemfへの変換は pstoedit (http://www.pstoedit.net/pstoedit/) を
使うとよいかも知れません。
案を出すだけで申し訳ないですが、そのようなシステムを開発されたら是非公開し
てください。
自己フォローです。googleで検索すると同様の案件がざくざく出てきますね。解決
したというのは見つかりませんでしたが。。。
pstoeditでpsファイルを切り出して連番のemfファイルを作成し(やり方はマニュア
ルを参照のこと)、
ツール、参照設定でMiscorsoft PowerPoint 9.0 Object LibraryとMiscorosft
Scripting Runtimeにチェックをつけて
Sub Get_SlideShow()
Dim fso As New FileSystemObject
Dim ppAp As New PowerPoint.Application
Dim myPP As PowerPoint.Presentation
Dim mySd As PowerPoint.Slide
Dim fd As Folder
Dim f As File
Dim h As Long
Dim myH As Long, myW As Long
Dim slideStr As String
Dim myFile As File
Const myFilterName = "emf"
'========
ppAp.Visible = True
Set myPP = ppAp.Presentations.Add
With myPP.SlideMaster
myH = .Height - 10
myW = .Width - 10
End With
'========
Set fd = fso.GetFolder("d:\")
For Each f In fd.Files
If f.Name Like "*." & myFilterName Then
h = h + 1
'ppLayoutBlank)
Set mySd = myPP.Slides.Add(h, 1)
myPP.Slides.Range(h).Shapes.AddPicture f.Path, _
msoFalse, True, 5, 5, myW, myH
End If
Next
End Sub
これでとりあえずはうまくいきそうな気もします(未確認)。
SさんのMiscorosft Scripting Runtime併用策はなるほどと思ったのですが、
Windows上でのScripting環境はよく知らないので、何か不具合があった時に手が
出せなくなりそうです。
で、久しぶりに松阪大の奥村先生のTeX Q&A
http://www.matsusaka-u.ac.jp/~okumura/ を見てみると、えらくタイミング良
く、9/30付けのhttp://www.matsusaka-u.ac.jp/~okumura/texfaq/qa/22202.html
に、ps2pptというものが(作者自身の手で)紹介されていました。READMEによると
ps2ppt.sh is a tiny bash-script for converting postscript files into
the powerpoint format. (strictly, not ppt, but ppt-compliant html/xml)
だそうです。dvipsの出力したPSファイルをこれで変換し、WindowsでPowerpoint
を起動してこれを取り込むことによって、目的が達成できました。またこれだと、
最後にPowerpointに取り込む作業以外はUNIX(Linux)側ででき、Windowsをさわる
手間が最小限で済むので、私にとってはまさに願ったりかなったりです。
他には(やはり上記TeX Q&Aからの情報ですが)有料でPDF2PPTというツールもあ
るようです(http://www.laux-it.com/menu.htm)。
ちなみに私自身はプレゼンはPowerpointではなくMagicPointなのですが、今回
は自分のプレゼンに使うのではなく、他の理由でどうしてもPowerpointにする必
要が生じてしまっていたので、助かりました。
fj.comp.applications.powerpoint にも流します。
ps2ppt や PDF2PPT の紹介をありがとうございました。やはりすでに誰かが作って
いたのですね。素晴らしいものを紹介してくださりありがとうございました。
On Wed, 1 Oct 2003 12:06:22 +0000 (UTC)
ni...@ics.nara-wu.ac.jp (NIDE Naoyuki) wrote:
> 新出@奈良女子大学です。情報ありがとうございました。
>
> SさんのMiscorosft Scripting Runtime併用策はなるほどと思ったのですが、
> Windows上でのScripting環境はよく知らないので、何か不具合があった時に手が
> 出せなくなりそうです。
>
> で、久しぶりに松阪大の奥村先生のTeX Q&A
> http://www.matsusaka-u.ac.jp/~okumura/ を見てみると、えらくタイミング良
> く、9/30付けのhttp://www.matsusaka-u.ac.jp/~okumura/texfaq/qa/22202.html
> に、ps2pptというものが(作者自身の手で)紹介されていました。READMEによると
>
> ps2ppt.sh is a tiny bash-script for converting postscript files into
> the powerpoint format. (strictly, not ppt, but ppt-compliant html/xml)
>
> だそうです。dvipsの出力したPSファイルをこれで変換し、WindowsでPowerpoint
>
> を起動してこれを取り込むことによって、目的が達成できました。またこれだと
> 、最後にPowerpointに取り込む作業以外はUNIX(Linux)側ででき、Windowsをさわ