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.

Text (Text, Start, Overwrite)


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