AddComment Method

Applies To

Shapes collection object.

Description

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

Syntax

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.

See Also

AddCallout method, DisplayComments property.

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