VBSで作ったパワーポイントのスライドショーもどき http://d.hatena.ne.jp/ken3memo/20100610/1276115115 を少し追加でいじってみた。
スライドショー 偶数ページで何かする?
人力検索の質問、
http://q.hatena.ne.jp/1278176601
[Powerpoint マクロ]
パワーポイントで、スライドショーを実行している間、特定の(例えば表示順が偶数番目の)スライドを表示したときに、外部の実行ファイルを動かしたいのですが、そのコードまたは、方法を記載しているWebページがあったら、教えていただけますでしょうか。Powerpointのバージョンは2002、WindowsXP上で動かします。
をネタにして(ぉぃぉぃ)
'test.vbsなどで保存。 'VBScript で PowerPointを起動、スライドショーもどき・・・ Set oApp = CreateObject("PowerPoint.Application") oApp.Visible = True '可視にする oApp.Presentations.Open("E:\テスト.ppt") oApp.ActivePresentation.SlideShowSettings.Run For p=1 To 4 '偶数ページの時、何かする? If (p mod 2) = 0 then '偶数ページの時、テストでメモ帳(notepad)を起動 'Windows Script Host Run メソッド 'http://msdn.microsoft.com/ja-jp/library/Cc364421 Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run "%windir%\notepad " Set WshShell = Nothing End If WScript.Sleep(5000) '5秒待つ oApp.SlideShowWindows(1).View.Next '次のページ Next oApp.ActivePresentation.Application.Quit '抜ける Set oApp = Nothing
単に、MOD 2=0で偶数の判断して、.Run "ファイル名" しただけでした。
起動した実行ファイルの完了確認とかしてなくて、あまり実用的じゃないので、
日記にコソコソと書き込んでみた。
回答しろよ・・と声が聞こえてきたところで、失礼します。 三流プログラマー Ken3