PowerPointのプレゼンテーションにタイマーを追加したいけれど、難しそうで手を出せないと感じていませんか？特に、パソコンやスマホに詳しくない方々にとって、VBA（Visual Basic for Applications）という言葉すら難しく感じるかもしれません。しかし、心配いりません。今回は、初心者の方でもわかりやすく、PowerPointにタイマーを追加する方法をステップバイステップでご紹介します。
PowerPointにタイマーを追加する理由
PowerPointのイメージ
プレゼンテーションにタイマーを追加することで、以下のような効果が期待できます
- 時間管理発表や活動の時間を把握し、予定通りに進行できます。
- 集中力の維持参加者が残り時間を意識することで、集中力が高まります。
- インタラクティブ性の向上クイズやワークショップなど、参加型の活動に活用できます。
VBAを使ってタイマーを追加する方法
VBAを使用すると、PowerPointにカスタマイズ可能なタイマーを追加できます。以下の手順で進めていきましょう。
ステップ1開発者タブの表示
まず、PowerPointのリボンに「開発者」タブを表示させます。これにより、VBAエディタにアクセスできるようになります。
- PowerPointを開きます。
- 「ファイル」メニューから「オプション」を選択します。
- 「リボンのユーザー設定」をクリックし、「開発者」にチェックを入れます。
- 「OK」をクリックして設定を保存します。
ステップ2VBAエディタの起動
次に、VBAエディタを開きます。
- リボンの「開発者」タブをクリックします。
- 「Visual Basic」をクリックしてVBAエディタを起動します。
ステップ3VBAコードの入力
VBAエディタが開いたら、新しいモジュールを挿入し、以下のコードを入力します。
Sub CountdownTimer()
Dim time As Date
time = Now()
Dim count As Integer
count = 30 ' 30秒のカウントダウン
time = DateAdd("s", count, time)
Do Until time < Now()
DoEvents
ActivePresentation.SlideShowWindow.View.Slide.Shapes("TimerShape").TextFrame.TextRange = Format((time - Now()), "hh:mm:ss")
Loop
End Sub
このコードは、指定した時間（ここでは30秒）のカウントダウンを行い、スライド上の「TimerShape」という名前の図形に残り時間を表示します。
ステップ4図形の追加と名前の変更
PowerPointに戻り、カウントダウンを表示するための図形を追加します。
- スライドに矩形などの図形を挿入します。
- 挿入した図形を右クリックし、「図形の書式設定」を選択します。
- 「選択と表示」ウィンドウを開き、図形の名前を「TimerShape」に変更します。
ステップ5マクロの実行設定
最後に、図形をクリックしたときにマクロが実行されるように設定します。
- 図形を右クリックし、「リンクの設定」を選択します。
- 「マクロの実行」を選択し、先ほど作成した「CountdownTimer」を選びます。
- 「OK」をクリックして設定を保存します。
よくある質問や疑問
Q1: VBAを使うのは難しくないですか？
初めての方でも、上記の手順に従えば簡単にタイマーを追加できます。心配せずに挑戦してみてください。
Q2: 他の時間設定（例えば5分や10分）のタイマーはどう作りますか？
コード内の「count = 30」の部分を変更することで、任意の時間に設定できます。例えば、5分の場合は「count = 300」となります。
Q3: タイマーがスライドショー以外でも動作しますか？
上記の方法ではスライドショー中に動作しますが、スライドショー外で動作させるには、フォームを使用するなどの方法が考えられます。
まとめ
PowerPointにVBAを使ってタイマーを追加することで、プレゼンテーションの時間管理が容易になり、参加者の集中力も高まります。初心者の方でも、上記の手順に従えば簡単にタイマーを追加できます。他にも疑問やお悩み事があればお気軽にLINEからお声掛けください。
コメント