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

Remarks

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
, The comment's screen coordinates

Example

Use (index), where index is the number of the comment, or the 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.

Visual Basic for Applications 
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

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

Visual Basic for Applications 
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

See also: