Author Property

expression.Author

expression    Required. An expression that returns one of the objects in the Applies To list.

Remarks

This property only returns the author's name. To return the author's initials, use the AuthorInitials property. Specify the Author of a comment when you add a new comment to the presentation.

Example

The following example adds a comment to the first slide of the active presentation and then displays the author's name and initials in a message.

Sub GetAuthorName()
    With ActivePresentation.Slides(1)
        .Comments.Add Left:=100, Top:=100, Author:="Jeff Smith", _
            AuthorInitials:="JS", _
            Text:="This is a new comment added to the first slide."
        MsgBox "This comment was created by " & _
            .Comments(1).Author & " (" & .Comments(1).AuthorInitials & ")."
    End With
End Sub