PowerPointat 決まった時間に表示したい

質問

よろしくお願いします。
ロビーでPowerPointを表示させて来られる方々に情報を提供しております。
最寄りのバス停や駅の出発時刻も表示したりしておりますが、
PowerPointのスライドを動かしている中で、列車発車10分前に、『あと10分で列車がでます』といった表示を出したいのです。
Windowsのタスク機能で表示してみたのですが、その後PowerPointが止まってしまいます。
管理のしやすさから言ってもPoweｒPointの中で操作したいと考えておりますが方法をご存知の方よろしくご教授ください。

回答No.1

DreamyCat · ベストアンサー

時刻表示の部分はエクセルVBAを使えば非常に簡単に実現できます。
パワーポイントからこれを実行させることもできなくはないのですが、
むしろ独立させておいたほうがトラブル対処で安心していられるだろうと思います。
Application.OnTime Now() + TimeValue("00:00:02")　これは現在の２秒後にしてありますが、これを最初にエクセルのセルからすべて読み込むようにすればあとは１日の始めに１度実行するだけでパワーポイントと無関係に表示できます。
　VBAをある程度使いこなせない場合は、あきらめて、フリーソフトなどを探してください。

Private Sub CommandButton1_Click()
　　Application.WindowState = xlMinimized
　　Application.OnTime Now() + TimeValue("00:00:02"), "sheet1.test"
End Sub

Sub test()
　　UserForm1.Show False
　　Application.Wait Now() + TimeValue("00:00:02")
　　UserForm1.Hide
End Sub