Comments Property

object that represents a collection of comments.

expression.Comments

expression    Required. An expression that returns one of the objects in the Applies To list.

Example

The following example adds a comment to a slide.

Sub AddNewComment()
    ActivePresentation.Slides(1).Comments.Add _
        Left:=0, Top:=0, Author:="John Doe", AuthorInitials:="jd", _
        Text:="Please check this spelling again before the next draft."
End Sub