Compartilhar via

Objeto Comments (PowerPoint)

  • Artigo

Representa uma coleção de objetos Comment.

Exemplo

Use a propriedade comentários para se referir à coleção de comentários. O exemplo a seguir exibe o número de comentários no slide atual.

Sub CountComments()
    MsgBox "You have " & ActiveWindow.Selection.SlideRange(1) _
        .Comments.Count & " comments on this slide."
End Sub

Use o método Add para adicionar um comentário a um slide. Este exemplo adiciona um novo comentário ao primeiro slide da apresentação ativa.

Sub AddComment()

    Dim sldNew As Slide
    Dim cmtNew As Comment

    Set sldNew = ActivePresentation.Slides.Add(Index:=1, _
        Layout:=ppLayoutBlank)

    Set cmtNew = sldNew.Comments.Add(Left:=12, Top:=12, _
        Author:="Jeff Smith", AuthorInitials:="JS", _
        Text:="You might consider reviewing the new specs" & _
        "for more up-to-date information.")

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.