コメントをイミディエイトウィンドウに出力するPowerPointマクロ

いま住んでいる場所はそこそこ気に入っていますが、キジバトを見かけないのが残念です。あの鳴き声が聞きたい。hiramaです。

今回もPowerPointマクロのご紹介です。
PowerPointファイルをお客様に確認していただくときに、PowerPointのコメント機能を使用して指摘を追加していただく場合があります。
コメントをクリックするとコメントの内容を確認できますが、複数のコメントの内容を同時に確認することはできません。

今回は、このようなコメントをVBAのイミディエイトウィンドウに出力する簡単なマクロをご紹介します。

Sub ListComments()
''コメントをイミディエイトウィンドウに出力

Set mySlides = ActivePresentation.Slides

For Each mySlide In mySlides

    For Each myComment In mySlide.Comments

        Comment = Comment & vbCrLf
        Comment = Comment & "Slide:" & mySlide.SlideNumber & "