PowerPointプレゼンテーションにプログレスバーを挿入する
プログレスバーの挿入はマクロを介して行わなければなりません。 VBE、またはビジュアルベーシックエディタを使用して、PowerPointにバーを挿入し、希望の色、バーの高さと幅を設定するための特定のコードを書くことができます。 この記事ではその方法を説明します。
PowerPointプレゼンテーションにプログレスバーを追加する
プログレスバーは通常、PowerPointスライドの下部に配置されており、残りのコンテンツに関しては微妙に表示されています。 バーを挿入するには、[ ツール] > [ マクロ] > [ Visual Basic Editor]の順に選択します。開いたウィンドウで、[ 挿入] - [ モジュール]を選択してから、このテキストを空白ページに挿入します。
Sub AddProgressBar（）エラー時に再開
ActivePresentationを使って
X = 1の場合。
.Slides（X）.Shapes（ "PB"）。削除
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"
次のX：
で終わる
終了サブ
次にファイル > 閉じる > PowerPointに戻るの順に選択します 。 プレゼンテーションに戻ります。
それでは、 Tools > Macro > Macrosに進んでください 。 AddProcessBarを選択して[ 実行 ]を押します。 進行状況バーが表示されます。
PowerPointからプログレスバーを削除します。
PowerPointプレゼンテーションからプログレスバーを削除したい場合は、単にモジュールに戻って次のコードを置き換えます。s = .Slides（X）.Shapes.AddShape（msoShapeRectangle、_ 0、.PageSetup.SlideHeight - 12、_ X * .PageSetup.SlideWidth / .Slides.Count、12）に設定します。
次のように：
s = .Slides（X）.Shapes.AddShape（msoShapeRectangle、0、0、0、0）と設定します。
進行状況バーを削除するために、マクロを実行します。