プログレスバーとは、PowerPointで、スライドショーが完了した割合を視覚的に表現するグラフィックのことです。また、残量の目安にもなります。ここでは、Microsoft PowerPointでプログレスバーを作成する方法を説明します。

プログレスバーは、各スライドの下部にシェイプを配置することで手動で作成することができます**。この方法の問題点は、プレゼンテーションのスライド数に対して、各シェイプの長さを測定する必要があることです。また、スライドを追加・削除した場合は、スライドショー内の各スライドのプログレスバーを手動でやり直す必要があります。

マクロでプログレスバーを作成することで、一貫性を保つことができ、深刻な頭痛の種を避けることができます。このマクロを使うと、プレゼンテーションのスライド数に応じてプログレスバーが自動的に調整されます。

関連：マクロの説明：Microsoft Officeのファイルが危険な理由

まず、プログレスバーを作成したいPowerPointのプレゼンテーションを開き、「表示」タブをクリックし、「マクロ」を選択します。

Macro」ウィンドウが表示されます。マクロ名」の下のテキストボックスに、新しいマクロの名前を入力します。名前にはスペースを含んではならない。入力したら、「作成」をクリックするか、Macを使用している場合は「+」アイコンをクリックします。

Microsoft Visual Basic for Applicati*** (VBA)」ウィンドウが表示されます。エディタに、次のようなコードが表示されます。

Sub ProgressBar() End Sub

まず、カーソルを2行のコードで挟みます。

次に、このコードをコピーして貼り付けてください。

On Error Resume NextWith ActivePresentationFor X = 1 To .Slides.Count.Slides(X).Shapes("PB").DeleteSet s = .Slides(X).Shapes.AddShape(msoShapeRectangle, _0, .PageSetup.SlideHeight - 12, _X * .PageSetup.SlideWidth / .Slides.Count, 12)s.Fill.ForeColor.RGB = RGB(127, 0, 0)s.Name = "PB"Next X:End With

貼り付けた後、エディタ上でコードは以下のように表示されるはずです。

注現在、コードの最初の行と最後の行の間に改行がありません。

これで、VBAウィンドウを閉じることができます。Microsoft PowerPointに戻り、「表示」タブの「マクロ」を再度クリックします。

次に、マクロ名（この例では "ProgressBar"）を選択して、"Run "をクリックします。

これで、プレゼンテーションの各スライドの下にプログレスバーが表示されるようになりました。

スライドが削除された場合、プログレスバーは自動的に調整されます。新しいスライドを追加した場合は、再度マクロを実行する必要があります（"表示">"マクロ">"実行"）。これは、手動で調整するのに比べれば、些細な不便さです。