PowerPointで、ノートを全て削除するPowerPointマクロをご紹介しました。
逆に、スライドのタイトルプレースホルダに入力されている文字列を、ノートに転記したいという要望をいただくこともあります。
タイトルをノートに転記するサンプルマクロ
こういった要望に対応する機能も標準では用意されていないので、VBA（Visual Basic for Applications）でマクロを作成しましょう。
Dim sld As Slide
Dim msg
msg = "タイトルをノートへ転記しますか？（既存のノートはすべて削除されます）"
If MsgBox(msg, vbYesNo) = vbNo Then Exit Sub
With sld
If .Shapes.HasTitle Then
.NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text _
= .Shapes.Title.TextFrame.TextRange.Text
End If
End With
Next sld
End Sub
上記のマクロを実行すると、
「タイトルをノートへ転記しますか？（既存のノートはすべて削除されます）」
という確認メッセージが表示され、［はい］ボタンをクリックすると全てのスライドで、タイトルに入力されている文字列がノートに転記されます。
元々ノートが入力されていた場合、元のノートは上書きされすべて削除されてしまいますので、ご注意ください。
サンプルマクロの解説
アクティブなプレゼンテーションファイルの、全スライドにループ処理を開始し、
For Each sld In ActivePresentation.Slides
スライドにタイトルがあった場合に、
With sld
If .Shapes.HasTitle Then
ノートにタイトルの文字列をノートに転記しています。
.NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text _
= .Shapes.Title.TextFrame.TextRange.Text
Home » パワーポイントマクロ・PowerPoint VBAの使い方 » ノート » タイトルをノートに転記するPowerPointマクロ
