Note
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Renvoie la date et l’heure de création d’un commentaire.
Syntaxe
expression. DateTime
expression Variable qui représente un objet Comment .
Valeur renvoyée
Date
Remarques
Ne confondez pas cette propriété avec la propriété DateAndTime , qui s’applique aux en-têtes et pieds de page d’une diapositive.
Exemple
L’exemple suivant montre comment afficher des informations sur tous les commentaires d’une diapositive donnée.
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
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.