Shapes.AddComment Method
Adds a comment. Returns a CanvasShapes object that represents the new comment.
Namespace: Microsoft.Office.Interop.PowerPoint
Assembly: Microsoft.Office.Interop.PowerPoint (in Microsoft.Office.Interop.PowerPoint.dll)
Syntax
'Declaration
Function AddComment ( _
Left As Single, _
Top As Single, _
Width As Single, _
Height As Single _
) As Shape
'Usage
Dim instance As Shapes
Dim Left As Single
Dim Top As Single
Dim Width As Single
Dim Height As Single
Dim returnValue As Shape
returnValue = instance.AddComment(Left, _
Top, Width, Height)
Shape AddComment(
float Left,
float Top,
float Width,
float Height
)
Parameters
- Left
Type: System.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.
- Top
Type: System.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
Type: System.Single
The width of the comment, in points. By default, the comment is 100 points high and 100 points wide.
- Height
Type: System.Single
The height of the comment, in points. By default, the comment is 100 points high and 100 points wide.
Return Value
Type: Microsoft.Office.Interop.PowerPoint.Shape
Shape
Examples
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