Share via

AddComment Method

  • Article

Adds a comment. Returns a Shape object that represents the new comment.

expression**.AddComment(Left**, Top, Width, Height)

*expression   * Required. An expression that returns a Shapes object.

Left   , Top Optional Single. The position (in points) of the upper-left corner of the comment bounding box relative to the upper-left corner of the document. By default, the comment is placed in the upper-left corner of the document.

Width   , Height Optional Single. The width and height of the comment, in points. By default, the comment is 100 points high and 100 points wide.

Example

This example adds a comment that contains the text "Test Comment" to myDocument.

Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddComment(100, 100, 150, 150)
    .TextFrame.TextRange.Text = .TextFrame _
        .TextRange.Text + "Test Comment"
End With

Applies to | Shapes Collection Object

See Also | AddCallout Method | DisplayComments Property