企業研修講師派遣のBESTグループ
出張パソコン教室ITスクール
webコンサルティングスクール
パソコンの家庭教師BEST

Home PowerPoint(パワーポイント) すべてのノートをまとめるマクロ|PowerPoint(パワーポイント)

マクロを利用すれば、もっと柔軟にノートを扱うことが可能です。

プレゼンテーションファイル内の全ノートをまとめるマクロをご紹介しましょう。

▼すべてのノートをまとめるマクロ

Sub MergeAllNotes()

 Dim objSlide As Slide
 Dim objText As TextRange
 Dim strNote As String

 If MsgBox(“ファイル内のすべてのノートをまとめますか?”, vbYesNo) = vbNo Then Exit Sub

 For Each objSlide In ActivePresentation.Slides
  With objSlide
   For Each objText In .NotesPage.Shapes.Placeholders(2).TextFrame.TextRange
    strNote = strNote & .NotesPage.Shapes.Placeholders(2).TextFrame.TextRange & vbCrLf
   Next objText
  End With
 Next objSlide

 With ActivePresentation.Slides
  .Add Index:=.Count + 1, Layout:=ppLayoutBlank
  ActivePresentation.Slides(.Count).NotesPage.Shapes.Placeholders(2).TextFrame.Tex

tRange = strNote
 End With

 MsgBox(“最後のスライドのノートに、ファイル内のすべてのノートをまとめました。”)

End Sub

上記のマクロを実行すると、プレゼンテーションファイルの最後にスライドを1枚追加し、そのスライドのノートに全ノートをまとめます。

追加された最後のスライドのノートにまとめられたノートを、他のWordなどにコピーアンドペーストしてしまえば、自由に使うことができます。

>文書作成代行
>パソコン企業研修
>パソコン教室 
>パソコンの家庭教師BEST

zp8497586rq

ご質問や感想は上記からコメントをお願い致します