こんにちは！今日は、PowerPointのVBA（Visual Basic for Applications）を使って、現在編集中のスライド番号を取得する方法をご紹介します。パソコンに不安がある方でも安心して取り組めるように、わかりやすく解説しますね。
現在のスライド番号を取得する基本のコード
PowerPointのイメージ
まずは、現在編集中のスライド番号を取得するための基本的なVBAコードをご紹介します。
vba
Sub 現在のスライド番号を表示()
MsgBox ActiveWindow.Selection.SlideRange.SlideIndex
End Sub
このコードを実行すると、メッセージボックスに現在のスライド番号が表示されます。例えば、スライド番号が「3」の場合、「3」と表示されます。
スライド番号とスライド開始番号の違い
PowerPointでは、スライド番号とスライド開始番号という2つの概念があります。スライド番号は、スライド上に表示される番号で、スライド開始番号は、プレゼンテーション全体のスライド番号の開始位置を設定するものです。
スライド開始番号を変更すると、スライド番号も変わります。例えば、スライド開始番号を「10」に設定すると、1枚目のスライドのスライド番号は「10」となります。
このサイトをチップで応援
スライド番号をスライド上に挿入する方法
スライド番号をスライド上に自動で挿入する方法もご紹介します。以下のVBAコードを実行すると、スライドの右下にスライド番号が挿入されます。
vba
Sub スライド番号を挿入()
Dim sld As Slide
For Each sld In ActivePresentation.Slides
sld.HeadersFooters.SlideNumber.Visible = msoTrue
Next sld
End Sub
このコードを実行すると、全てのスライドにスライド番号が挿入されます。特定のスライドにのみ挿入したい場合は、条件を追加して調整してください。
よくある質問や疑問
Q1: スライド番号を挿入した後、番号を変更するにはどうすればいいですか？
スライド番号を変更するには、スライドマスターを編集する必要があります。スライドマスターを開き、スライド番号の位置やフォントを変更してください。
Q2: スライド番号を特定のスライドにのみ挿入するにはどうすればいいですか？
特定のスライドにのみスライド番号を挿入するには、VBAコード内で条件を追加して、対象のスライドにのみ番号を挿入するように調整してください。
まとめ
PowerPointのVBAを使って、現在のスライド番号を取得したり、スライド番号をスライド上に挿入したりする方法をご紹介しました。これらの操作を覚えることで、プレゼンテーションの作成や編集がより効率的に行えるようになります。
他にも疑問やお悩み事があれば、お気軽にLINEからお声掛けください。
コメント