PowerPoint VBAでコメントを活用する方法：初心者でもできるステップバイステップガイド

PowerPointでプレゼンテーションを作成していると、スライドにコメントを追加したくなる場面が多いですよね。特に、チームでの共同作業や、後で確認したいポイントをメモしておくために、コメント機能は非常に便利です。しかし、手動でコメントを追加するのは手間がかかります。そこで、VBA（Visual Basic for Applications）を使って、コメントの追加や管理を自動化する方法を学んでみましょう。

VBAを使ってPowerPointにコメントを追加する方法
コメントの表示・非表示を切り替える方法
コメントをExcelに出力する方法
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

VBAを使ってPowerPointにコメントを追加する方法

PowerPointのイメージ

VBAを使うことで、スライドにコメントを自動で追加することができます。以下の手順で、コメントを追加するマクロを作成してみましょう。

PowerPointでVBAエディタを開く
PowerPointを開き、「開発」タブを表示させます。表示されていない場合は、設定から追加できます。次に、「Visual Basic」をクリックしてVBAエディタを開きます。
新しいモジュールを挿入する
VBAエディタで、「挿入」→「標準モジュール」を選択し、新しいモジュールを追加します。
コメントを追加するコードを入力する
以下のコードをモジュールに貼り付けます。これは、スライド1の左上にコメントを追加するものです。

Sub AddComment() ActivePresentation.Slides(1).Comments.Add _ Left:=12, Top:=12, _ Author:="山田太郎", _ AuthorInitials:="YT", _ Text:="このスライドの内容を確認してください。" End Sub

このコードを実行すると、指定した位置にコメントが追加されます。
マクロを実行する
VBAエディタを閉じ、PowerPointに戻ります。「開発」タブの「マクロ」をクリックし、「AddComment」を選択して実行します。

コメントの表示・非表示を切り替える方法

プレゼンテーション中にコメントを一時的に非表示にしたい場合、VBAを使って表示・非表示を切り替えることができます。以下のコードを使用してみましょう。

コメントを非表示にする
Sub HideComments() ActivePresentation.DisplayComments = False End Sub

このコードを実行すると、すべてのコメントが非表示になります。
コメントを表示する
Sub ShowComments() ActivePresentation.DisplayComments = True End Sub

このコードを実行すると、コメントが再び表示されます。

コメントをExcelに出力する方法

PowerPointのコメントをExcelに一覧として出力したい場合、以下のようなVBAコードを使用できます。

Sub ExportCommentsToExcel()

    Dim pptApp As Object

    Dim pptPresentation As Object

    Dim slide As slide

    Dim comment As comment

    Dim EXLS As Object

    Dim m As Long

    Dim CmtArray() As Variant

    Set EXLS = CreateObject("Excel.Application")

    EXLS.Visible = True

    EXLS.Workbooks.Add

    With EXLS.ActiveSheet

        .Cells(1, 1).Value = "項番"

        .Cells(1, 2).Value = "SlideNo."

        .Cells(1, 3).Value = "Author"

        .Cells(1, 4).Value = "DateTime"

        .Cells(1, 5).Value = "Comment"

    End With

    m = 1

    For Each slide In ActivePresentation.Slides

        For Each comment In slide.Comments

            m = m + 1

            ReDim Preserve CmtArray(5, m)

            CmtArray(0, m) = m - 1

            CmtArray(1, m) = slide.SlideIndex

            CmtArray(2, m) = comment.Author

            CmtArray(3, m) = comment.DateTime

            CmtArray(4, m) = comment.Text

        Next

    Next

    With EXLS.ActiveSheet

        For m = 2 To UBound(CmtArray, 2)

            For n = 1 To 5

                .Cells(m, n).Value = CmtArray(n - 1, m)

            Next

        Next

    End With

    Set EXLS = Nothing

End Sub