Comment Object (PowerPoint)

Represents a comment on a given slide or slide range. The Comment object is a member of the Comments collection object.

Use the following properties to access comment data:


The author's full name


The author's index in the list of comments


The author's initials


The date and time the comment was created


The text of the comment

Left , Top

The comment's screen coordinates

Use Comments (index), where index is the number of the comment, or the Item method to access a single comment on a slide. This example displays the author of the first comment on the first slide. If there are no comments, it displays a message stating such.

Sub ShowComment()

    With ActivePresentation.Slides(1).Comments

        If .Count > 0 Then

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


            MsgBox "There are no comments on this slide."

        End If

    End With

End Sub

This example displays a message containing the author, date and time, and contents of all the messages on the first slide.

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


        MsgBox "The comments in your document are as follows:" & vbLf & strComments


        MsgBox "This slide doesn't have any comments."

    End If

End Sub
© 2014 Microsoft