DateTime Property

expression.DateTime

expression    Required. An expression that returns a Comment object.

Remarks

Don't confuse this property with the DateAndTime property, which applies to the headers and footers of a slide.

Example

The following example provides information about all the comments for a given slide.

Sub ListComments()
    Dim cmtExisting As Comment
    Dim strAuthorInfo As String

    For Each cmtExisting In ActivePresentation.Slides(1).Comments
        With cmtExisting
            strAuthorInfo = strAuthorInfo & .Author & "'s comment #" & _
                .AuthorIndex & " (" & .Text & ") was created on " & _
                .DateTime & vbCrLf
        End With
    Next

    If strAuthorInfo <> "" Then
        MsgBox strAuthorInfo
    Else
        MsgBox "There are no comments on this slide."
    End If
End Sub