Clase CommentThreaded - comentario encadenado de una celda (Excel VBA)
La clase CommentThreaded representa el comentario encadenado de una celda. 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)
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
AddReply
Si el comentario es un Comentario de nivel superior, se agregará una respuesta a su colección de respuestas.
AddReply (Text)
Text: El texto de la respuesta.
Dim ctdAddReply As CommentThreaded
Set ctdAddReply = ActiveCell.AddCommentThreaded.AddReply()
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
Delete
Elimina el comentario encadenado especificado y todas las respuestas asociadas con ese comentario (si existe).
ActiveCell.AddCommentThreaded.Delete
Next
Devuelve un objeto CommentThreaded que representa el siguiente comentario encadenado.
Si se llama en un objeto CommentThreaded de nivel superior (primario), devuelve un objeto CommentThreaded de nivel superior (primario) que representa el siguiente comentario. Si se llama en un objeto de respuesta CommentThreaded , devuelve un objeto reply CommentThreaded que representa la siguiente respuesta de un hilo.
Dim ctdNext As CommentThreaded
Set ctdNext = ActiveCell.AddCommentThreaded.Next()
Previous
Devuelve un objeto CommentThreaded que representa el comentario encadenado anterior.
Si se llama en un objeto CommentThreaded de nivel superior (primario), devuelve un objeto CommentThreaded de nivel superior (primario) que representa el comentario anterior. Si se llama en un objeto de respuesta CommentThreaded , devuelve un objeto reply CommentThreaded que representa la respuesta anterior de un hilo.
Dim ctdPrevious As CommentThreaded
Set ctdPrevious = ActiveCell.AddCommentThreaded.Previous()
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
Text
Establece el texto del comentario enlazado.
Dim strText As String
strText = ActiveCell.AddCommentThreaded.Text()
Arguments
Optional arguments
Los siguientes argumentos son opcionales
Text (String) - Texto que se va a agregar.
Start (Long) - Número del carácter donde se colocará el texto agregado.
Overwrite (Boolean) - False para insertar el texto.