こんにちは！今日は、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コード内で条件を追加して、対象のスライドにのみ番号を挿入するように調整してください。
今すぐ解決したい！どうしたらいい？
いま、あなたを悩ませているITの問題を解決します！
「エラーメッセージ、フリーズ、接続不良…もうイライラしない！」
あなたはこんな経験はありませんか？
✅ ExcelやWordの使い方がわからない💦
✅ 仕事の締め切り直前にパソコンがフリーズ💦
✅ 家族との大切な写真が突然見られなくなった💦
✅ オンライン会議に参加できずに焦った💦
✅ スマホの重くて重要な連絡ができなかった💦
平均的な人は、こうしたパソコンやスマホ関連の問題で年間73時間（約9日分の働く時間！）を無駄にしています。あなたの大切な時間が今この悩んでいる瞬間も失われています。
LINEでメッセージを送れば即時解決！
すでに多くの方が私の公式LINEからお悩みを解決しています。
最新のAIを使った自動応答機能を活用していますので、24時間いつでも即返信いたします。
誰でも無料で使えますので、安心して使えます。
問題は先のばしにするほど深刻化します。
小さなエラーがデータ消失や重大なシステム障害につながることも。解決できずに大切な機会を逃すリスクは、あなたが思う以上に高いのです。
あなたが今困っていて、すぐにでも解決したいのであれば下のボタンをクリックして、LINEからあなたのお困りごとを送って下さい。
ぜひ、あなたの悩みを私に解決させてください。
まとめ
PowerPointのVBAを使って、現在のスライド番号を取得したり、スライド番号をスライド上に挿入したりする方法をご紹介しました。これらの操作を覚えることで、プレゼンテーションの作成や編集がより効率的に行えるようになります。
他にも疑問やお悩み事があれば、お気軽にLINEからお声掛けください。
コメント