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