Home » パワーポイントマクロ・PowerPoint VBAの使い方 » ノート » タイトルをノートに転記するPowerPointマクロ

タイトルをノートに転記するPowerPointマクロ

対象:PowerPoint97, PowerPoint2000, PowerPoint2002, PowerPoint2003

PowerPointで、ノートを全て削除するPowerPointマクロをご紹介しました。

逆に、スライドのタイトルプレースホルダに入力されている文字列を、ノートに転記したいという要望をいただくこともあります。

[スポンサードリンク]

タイトルをノートに転記するサンプルマクロ

こういった要望に対応する機能も標準では用意されていないので、VBA(Visual Basic for Applications)でマクロを作成しましょう。

Sub タイトルをノートに転記する()
 Dim sld As Slide
 Dim msg

 msg = "タイトルをノートへ転記しますか?(既存のノートはすべて削除されます)"
 If MsgBox(msg, vbYesNo) = vbNo Then Exit 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
  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マクロ

Home » パワーポイントマクロ・PowerPoint VBAの使い方 » ノート » タイトルをノートに転記するPowerPointマクロ

Copyright © インストラクターのネタ帳 All Rights Reserved.

.