Classe CommentThreaded (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.

Os principais procedimentos da classe CommentThreaded são AddReply e Delete

Set

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)

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo CommentThreaded: Replies, Worksheet.CommentsThreaded, CommentsThreaded.Item, Next, Previous, AddReply, Range.AddCommentThreaded e Range.CommentThreaded

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

Métodos

Estes são os principais métodos da classe CommentThreaded

AddReply - Se o comentário for um comentário de nível superior, ele adicionará uma resposta à coleção de respostas.

Dim ctdAddReply As CommentThreaded
Set ctdAddReply = ActiveCell.AddCommentThreaded.AddReply()

Delete - Exclui o comentário segmentado especificado e todas as respostas associadas a esse comentário se houver algum.

ActiveCell.AddCommentThreaded.Delete

Estes são os principais métodos da classe

CommentsThreaded.Item - Retorna um único objeto de uma coleção.

Next - Retorna um objeto CommentThreaded que representa o próximo comentário encadeado.

Previous - Retorna um objeto CommentThreaded que representa o comentário encadeado anterior.

Text - Define o texto do comentário encadeado.

Propriedades

CommentsThreaded.Count Retorna um valor Long que representa o número de objetos na coleção.

Dim lngCount As Long
lngCount = ActiveCell.AddCommentThreaded.Replies.Count

CommentsThreaded.Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim objParent As Object
Set objParent = ActiveCell.AddCommentThreaded.Replies.Parent

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

Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim objParent As Object
Set objParent = ActiveCell.AddCommentThreaded.Parent

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