コメント オブジェクト (PowerPoint)

指定したスライドまたはスライド範囲のコメントを表します。 コメント オブジェクトは、 コメント のコレクション オブジェクトのメンバーです。

注釈

コメント データにアクセスするには、次のプロパティを使用します。

例

コメント (インデックス) を使用します。index はコメントの番号、スライドの 1 つのコメントにアクセスするには Item メソッドを使用します。 この例では、最初のスライド上の最初のコメントの作成者を表示します。 コメントがない場合は、このようなことを示すメッセージが表示されます。

Sub ShowComment()

    With ActivePresentation.Slides(1).Comments

        If .Count > 0 Then

            MsgBox "The first comment on this slide is by " & .Item(1).Author

        Else

            MsgBox "There are no comments on this slide."

        End If

    End With

End Sub

次の使用例は、作成者、日付と時刻、およびスライド 1 のすべてのメッセージの内容が含まれたメッセージを表示します。

Sub SlideComments()

    Dim cmtExisting As Comment
    Dim cmtAll As Comments
    Dim strComments As String

    Set cmtAll = ActivePresentation.Slides(1).Comments

    If cmtAll.Count > 0 Then
        For Each cmtExisting In cmtAll
            strComments = strComments & cmtExisting.Author & vbTab & _
                cmtExisting.DateTime & vbTab & cmtExisting.Text & vbLf
        Next
        MsgBox "The comments in your document are as follows:" & vbLf & strComments
    Else
        MsgBox "This slide doesn't have any comments."
    End If

End Sub

関連項目

PowerPoint Object Model Reference

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。