PowerPointのプレゼンテーション中に、進捗状況を視覚的に示す「進捗バー」を表示したいと思ったことはありませんか？特に、長時間のプレゼンテーションや複数のセクションに分かれている場合、聴衆が現在どの段階にいるのかを把握できると、安心感を与えることができます。今回は、初心者の方でも簡単に実装できる方法をご紹介します。
進捗バーとは？
PowerPointのイメージ
進捗バーは、プレゼンテーションの進行状況を視覚的に示すためのバーです。通常、スライドの下部や上部に配置され、スライドが進むごとにバーが伸びていきます。これにより、聴衆は現在の位置や残りのスライド数を一目で確認できます。
VBAを使って進捗バーを追加する方法
VBA（Visual Basic for Applications）を使用すると、PowerPointに動的な機能を追加できます。進捗バーもその一例です。以下の手順で進捗バーを追加してみましょう。
手順1VBAエディタを開く
1. PowerPointを開きます。
2. 「開発」タブを表示していない場合は、次の手順で表示します
* 「ファイル」タブをクリック。
* 「オプション」を選択。
* 「リボンのユーザー設定」をクリック。
* 「開発」にチェックを入れて「OK」をクリック。
3. 「開発」タブをクリックし、「Visual Basic」を選択してVBAエディタを開きます。
手順2モジュールを挿入する
1. VBAエディタで、「挿入」メニューから「モジュール」を選択します。
2. 新しく挿入されたモジュールに、以下のコードをコピー＆ペーストします
vba
Sub AddProgressBar()
On Error Resume Next
With ActivePresentation
sHeight = .PageSetup.SlideHeight - 12
n = 0
j = 0
For i = 1 To .Slides.Count
If .Slides(i).SlideShowTransition.Hidden Then j = j + 1
Next i
For i = 2 To .Slides.Count
.Slides(i).Shapes("progressBar").Delete
If .Slides(i).SlideShowTransition.Hidden = msoFalse Then
Set slider = .Slides(i).Shapes.AddShape(msoShapeRectangle, 0, sHeight, (i - n) * .PageSetup.SlideWidth / (.Slides.Count - j), 12)
With slider
.Fill.ForeColor.RGB = ActivePresentation.SlideMaster.ColorScheme.Colors(ppFill).RGB
.Name = "progressBar"
End With
Else
n = n + 1
End If
Next i
End With
End Sub
手順3マクロを実行する
- VBAエディタを閉じて、PowerPointに戻ります。
- 「開発」タブから「マクロ」をクリックします。
- 「AddProgressBar」を選択し、「実行」をクリックします。
これで、プレゼンテーションの各スライドに進捗バーが追加されます。スライドを追加・削除した場合は、再度マクロを実行することで進捗バーが更新されます。
このサイトをチップで応援
進捗バーをカスタマイズする方法
進捗バーの色や位置、サイズなどを変更したい場合、VBAコード内の以下の部分を編集します
* 色の変更
vba
.Fill.ForeColor.RGB = RGB(255, 0, 0) ' 赤色
上記のコードでは、進捗バーの色を赤に設定しています。RGB関数の引数を変更することで、任意の色に変更できます。
* サイズや位置の変更
vba
Set slider = .Slides(i).Shapes.AddShape(msoShapeRectangle, 0, sHeight, (i - n) * .PageSetup.SlideWidth / (.Slides.Count - j), 12)
上記のコードでは、進捗バーの高さを12ポイントに設定しています。数値を変更することで、バーの高さを調整できます。
よくある質問
Q1: 進捗バーを手動で作成する方法はありますか？
はい、手動で進捗バーを作成することも可能です。各スライドに矩形を挿入し、スライド番号に応じて長さを調整します。しかし、スライドの追加や削除があるたびに手動で調整する必要があるため、VBAを使用する方法が効率的です。
Q2: 進捗バーを削除するにはどうすればよいですか？
進捗バーを削除するには、以下のVBAコードを実行します
vba
Sub RemoveProgressBar()
On Error Resume Next
With ActivePresentation
For i = 1 To .Slides.Count
.Slides(i).Shapes("progressBar").Delete
Next i
End With
End Sub
このコードをVBAエディタに追加し、実行することで、すべてのスライドから進捗バーを削除できます。
Q3: 進捗バーをスライドショー中に動的に更新することはできますか？
PowerPointのVBAでは、スライドショー中に進捗バーをリアルタイムで更新することは難しいですが、スライド遷移時に進捗バーを更新するマクロを組み合わせることで、疑似的に動的な進捗バーを実現することができます。
まとめ
進捗バーをPowerPointに追加することで、プレゼンテーションの進行状況を聴衆に明確に伝えることができます。VBAを使用すれば、手動での調整なしに自動で進捗バーを更新でき、効率的にプレゼンテーションを進行できます。ぜひ、今回ご紹介した方法を試して、より効果的なプレゼンテーションを実現してください。
他にも疑問やお悩み事があればお気軽にLINEからお声掛けください。
コメント