Clase CommentThreaded (Excel VBA)

La clase CommentThreaded representa el comentario encadenado de una celda.

Los principales procedimientos de la clase CommentThreaded son AddReply y Delete

Set

Para usar una variable de clase CommentThreaded, primero debe ser instanciado, por ejemplo

Dim ctd as CommentThreaded
Set ctd = Dim strText As String: strText = 
ActiveCell.AddCommentThreaded(Text:=strText)

Los siguientes procedimientos se pueden usar para establecer variables de clase CommentThreaded : Replies, Worksheet.CommentsThreaded, CommentsThreaded.Item, Next, Previous, AddReply, Range.AddCommentThreaded y Range.CommentThreaded

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos CommentThreaded en una colección.

Dim ctdReplie As CommentThreaded
For Each ctdReplie In Application.Replies
	
Next ctdReplie

Métodos

Los principales métodos de la clase CommentThreaded son

AddReply - Si el comentario es un Comentario de nivel superior, se agregará una respuesta a su colección de respuestas.

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

Delete - Elimina el comentario encadenado especificado y todas las respuestas asociadas con ese comentario (si existe).

ActiveCell.AddCommentThreaded.Delete

Otros Métodos

CommentsThreaded.Item - Devuelve un solo objeto de una colección.

Next - Devuelve un objeto CommentThreaded que representa el siguiente comentario encadenado.

Previous - Devuelve un objeto CommentThreaded que representa el comentario encadenado anterior.

Text - Establece el texto del comentario enlazado.

Propiedades

CommentsThreaded.Count Devuelve un valor Long que representa el número de objetos de la colección.

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

CommentsThreaded.Parent Devuelve el objeto primario del objeto especificado.

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

Author Devuelve el objeto Author que representa al autor del objeto CommentThreaded especificado.

Dim athAuthor As Author
Set athAuthor = ActiveCell.AddCommentThreaded.Author

Date Devuelve una cadena Date-Variant que representa la fecha y la hora en la que se agregó un comentario encadenado en la hora local.

Dim dtToday As Date
dtToday = ActiveCell.AddCommentThreaded.Date

Parent Devuelve el objeto primario del objeto especificado.

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

Replies Si este comentario es un elemento primario, devuelve una colección CommentsThreaded de objetos CommentThreaded que son elementos secundarios o respuestas del comentario especificado (si existe).

Dim ctdReplies As CommentsThreaded
Set ctdReplies = ActiveCell.AddCommentThreaded.Replies

Resolved

ActiveCell.AddCommentThreaded.Resolved = True