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マクロ

TrackBack:3

TrackBack URL
スライド内の全文字列をノートに転記−マクロ from インストラクターのネタ帳
対象:PowerPoint 97,2000,2002,003 タイトルプレースホルダの文字列を、ノートに転記するマクロをご紹介しました。 タイトルプレースホルダの文字列だけではなく、 「スライドで入力したすべての文字列をノートに転記するにはどうすればいいのでしょうか?」 というご質...
ノートに書式を設定する from インストラクターのネタ帳
対象:PowerPoint 97,2000,2002,2003 プレゼンテーション時の注意点などを入力しておくための、ノートという機能がPowerPointに用意されています。 2000以降のバージョンの場合、標準表示モードでスライドの下に「クリックしてノートを入力」と表示された[ノート]ペイ...
ノート部分のみを抜き出したい−Wordへ送信 from インストラクターのネタ帳
対象:PowerPoint97,PowerPoint2000,PowerPoint2002,PowerPoint2003 PowerPointのノート機...

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

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

.