Objet Comment (PowerPoint)
Représente un commentaire sur une diapositive ou un groupe de diapositives donné. L’objet Comment est membre de l’objet de collection Comments .
Remarques
Utilisez les propriétés suivantes pour accéder aux données de commentaire :
Propriété | Description |
---|---|
Author | Représente le nom complet de l’auteur. |
AuthorIndex | Représente l’index de l’auteur dans la liste des commentaires. |
AuthorInitials | Correspond aux initiales de l’auteur. |
DateTime | Correspond à la date et à l’heure de création du commentaire. |
Texte | Représente le texte du commentaire. |
Gauche, Haut | Correspond aux coordonnées du commentaire à l’écran. |
Exemple
Utilisez Commentaires (index), où index est le numéro du commentaire, ou la méthode Item pour accéder à un commentaire unique sur une diapositive. Cet exemple montre comment afficher le nom de l’auteur du premier commentaire sur la première diapositive. En cas d’absence de commentaire, un message s’affiche.
Sub ShowComment()
With ActivePresentation.Slides(1).Comments
If .Count > 0 Then
MsgBox "The first comment on this slide is by " & .Item(1).Author
Else
MsgBox "There are no comments on this slide."
End If
End With
End Sub
Cet exemple montre comment afficher un message contenant des données sur l’auteur, la date et l’heure et le contenu de tous les messages figurant dans la première diapositive.
Sub SlideComments()
Dim cmtExisting As Comment
Dim cmtAll As Comments
Dim strComments As String
Set cmtAll = ActivePresentation.Slides(1).Comments
If cmtAll.Count > 0 Then
For Each cmtExisting In cmtAll
strComments = strComments & cmtExisting.Author & vbTab & _
cmtExisting.DateTime & vbTab & cmtExisting.Text & vbLf
Next
MsgBox "The comments in your document are as follows:" & vbLf & strComments
Else
MsgBox "This slide doesn't have any comments."
End If
End Sub
Voir aussi
Référence du modèle objet PowerPoint
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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour