Classe CommentThreaded - comentário encadeado de uma célula (Excel VBA)
A classe CommentThreaded representa o comentário encadeado de uma célula. Este objeto pode representar um comentário de nível superior ou suas respostas. Para usar uma variável de classe CommentThreaded, ela primeiro precisa ser instanciada por exemplo
Dim ctd as CommentThreaded
Set ctd = Dim strText As String: strText =
ActiveCell.AddCommentThreaded(Text:=strText)
For Each
Aqui está um exemplo de processamento dos itens CommentThreaded em uma coleção.
Dim ctdReplie As CommentThreaded
For Each ctdReplie In Application.Replies
Next ctdReplie
AddReply
Se o comentário for um comentário de nível superior, ele adicionará uma resposta à coleção de respostas.
AddReply (Text)
Text: O texto da resposta.
Dim ctdAddReply As CommentThreaded
Set ctdAddReply = ActiveCell.AddCommentThreaded.AddReply()
Author
Retorna o objeto Author que representa o autor do objeto CommentThreaded especificado. Somente leitura.
Dim athAuthor As Author
Set athAuthor = ActiveCell.AddCommentThreaded.Author
Date
Retorna uma cadeia de caracteres de data- que representa a data e hora em que um comentário encadeado foi adicionado na hora local. Somente leitura.
Dim dtToday As Date
dtToday = ActiveCell.AddCommentThreaded.Date
Delete
Exclui o comentário segmentado especificado e todas as respostas associadas a esse comentário se houver algum.
ActiveCell.AddCommentThreaded.Delete
Next
Retorna um objeto CommentThreaded que representa o próximo comentário encadeado.
Se chamado em um objeto CommentThreaded de nível superior (pai), ele retornará um objeto de nível superior (pai) CommentThreaded que representa o próximo comentário. O uso deste método no último comentário em uma planilha retorna Null (não o próximo comentário na próxima planilha). Se chamado em um objeto CommentThreaded reply, ele retornará um objeto CommentThreaded Reply que representa a próxima resposta de um thread. Este método funciona somente em um thread. O uso desse método na última resposta de um thread retorna NULL (não o próximo comentário de nível superior).
Dim ctdNext As CommentThreaded
Set ctdNext = ActiveCell.AddCommentThreaded.Next()
Previous
Retorna um objeto CommentThreaded que representa o comentário encadeado anterior.
Se chamado em um objeto CommentThreaded de nível superior (pai), ele retornará um objeto de nível superior (pai) CommentThreaded que representa o comentário anterior. O uso deste método no primeiro comentário em uma planilha retorna Null (não o último comentário na planilha anterior). Se chamado em um objeto CommentThreaded reply, ele retornará um objeto CommentThreaded Reply que representa a resposta anterior de um thread. Este método funciona somente em um thread. O uso desse método na primeira resposta de um thread retorna NULL (não o seu comentário de nível superior).
Dim ctdPrevious As CommentThreaded
Set ctdPrevious = ActiveCell.AddCommentThreaded.Previous()
Replies
Se este comentário for um pai, retorna uma coleção CommentsThreaded de objetos CommentThreaded que são filhos/respostas do comentário especificado se houver algum. As respostas são classificadas por carimbo de data/hora.
Dim ctdReplies As CommentsThreaded
Set ctdReplies = ActiveCell.AddCommentThreaded.Replies
Resolved
ActiveCell.AddCommentThreaded.Resolved = True
Text
Define o texto do comentário encadeado.
Dim strText As String
strText = ActiveCell.AddCommentThreaded.Text()
Arguments
Optional arguments
Os seguintes argumentos são opcionais
Text (String) - O texto a ser adicionado.
Start (Long) - O número do caractere onde o texto adicionado será inserido. Se o parâmetro overwrite for true ou Blank, e se esse argumento for omitido, qualquer texto existente no comentário encadeado será excluído.
Overwrite (Boolean) - False para inserir o texto. O valor padrão é true (o texto é substituído).