Comment.AuthorIndex Property (PowerPoint)
Returns a Long representing the index number of a comment for a given author. The first comment for a given author has an index number of 1, their second comment has an index number of 2. Read-only.
Syntax
expression .AuthorIndex
expression A variable that represents an Comment object.
Return Value
Long
Example
The following example provide information about the authors and their comment indexes for a given slide.
Sub GetCommentAuthorInfo()
Dim cmtComment As Comment
Dim strAuthorInfo As String
With ActivePresentation.Slides(1)
If .Comments.Count > 0 Then
For Each cmtComment In .Comments
strAuthorInfo = strAuthorInfo & "Comment Number: " & _
cmtComment.AuthorIndex & vbLf & _
"Made by: " & cmtComment.Author & vbLf & _
"Says: " & cmtComment.Text & vbLf & vbLf
Next cmtComment
End If
End With
MsgBox "The comments for this slide are as follows: " & _
vbLf & vbLf & strAuthorInfo
End Sub