Replaces hidden Add method. Returns a Comment object that represents a new comment added to a slide. For more infomation about modern comments, see Modern comments in PowerPoint.
Dim strAuthor As String: strAuthor = Dim strAuthorInitials As String: strAuthorInitials = Dim strText As String: strText = Dim strProviderID As String: strProviderID = Dim strUserID As String: strUserID = Dim cmms As Comments: Set cmms = Dim cmmAdd2 As Comment Set cmmAdd2 = cmms.Add2(Left:=, Top:=, Author:=strAuthor, AuthorInitials:=strAuthorInitials, Text:=strText, ProviderID:=strProviderID, UserID:=strUserID)
The following arguments are required:
Left (Single) - The position, measured in points, of the left edge of the comment, relative to the left edge of the presentation.
Top (Single) - The position, measured in points, of the top edge of the comment, relative to the top edge of the presentation.
Author (String) - The author of the comment.
AuthorInitials (String) - The author's initials.
Text (String) - The comment's text.
ProviderID (String) - The service that provides contact information.Example: "AD" (Active Directory).
UserID (String) - The ID of the user providing the comment.