Compartilhar via

Objeto Comment (PowerPoint)

  • Artigo

Representa um comentário em um dado slide ou intervalo de slides. O objeto Comment é membro do objeto da coleção Comments.

Comentários

Use as propriedades a seguir para acessar dados de comentários:

Propriedade Descrição
Author O nome completo do autor
AuthorIndex O índice do autor na lista de comentários
AuthorInitials As iniciais do autor
DateTime A data e hora em que o comentário foi criado
Text O texto do comentário
Left ,Top As coordenadas de tela do comentário

Exemplo

Use Comentários (índice), em que o índice é o número do comentário ou o método Item para acessar um único comentário em um slide. Este exemplo exibe o autor do primeiro comentário no primeiro slide. Se não houver nenhum comentários, ele exibe uma mensagem informando tal.

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

Este exemplo exibe uma mensagem contendo o autor, a data e hora e o conteúdo de todas as mensagens no primeiro slide.

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

Confira também

Referência de modelo de objeto do PowerPoint

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.