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.
Text	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.