Klasse CommentThreaded - Thread Kommentar (Excel VBA)
Die Klasse CommentThreaded stellt einen Thread Kommentar einer Zelle dar. Um eine CommentThreaded -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise
Dim ctd as CommentThreaded
Set ctd = Dim strText As String: strText =
ActiveCell.AddCommentThreaded(Text:=strText)
For Each
Hier ist ein Beispiel für die Verarbeitung der CommentThreaded -Elemente in einer Sammlung
Dim ctdReplie As CommentThreaded
For Each ctdReplie In Application.Replies
Next ctdReplie
AddReply
Wenn der Kommentar ein Kommentar auf oberster Ebene ist, wird ihm eine Antwort auf seine replies-Auflistung hinzugefügt.
AddReply (Text)
Text: Der Text der Antwort.
Dim ctdAddReply As CommentThreaded
Set ctdAddReply = ActiveCell.AddCommentThreaded.AddReply()
Author
Gibt das Author -Objekt zurück, das den Autor des angegebenen CommentThreaded -Objekts darstellt.
Dim athAuthor As Author
Set athAuthor = ActiveCell.AddCommentThreaded.Author
Date
Gibt eine Datums Zeichenfolge-Variant zurück, die das Datum und die Uhrzeit darstellt, zu der ein Thread Kommentar in Ortszeit hinzugefügt wurde.
Dim dtToday As Date
dtToday = ActiveCell.AddCommentThreaded.Date
Delete
Löscht den angegebenen Thread-Kommentar und alle diesem Kommentar zugeordneten Antworten (sofern vorhanden).
ActiveCell.AddCommentThreaded.Delete
Next
Gibt ein CommentThreaded -Objekt zurück, das den nächsten Threaded-Kommentar darstellt.
Wenn für ein CommentThreaded -Objekt auf oberster Ebene (übergeordnet) aufgerufen wird, wird ein CommentThreaded -Objekt der obersten Ebene (übergeordnet) zurückgegeben, das den nächsten Kommentar darstellt. Wenn Sie für ein Reply- CommentThreaded -Objekt aufgerufen wird, wird ein Reply- CommentThreaded -Objekt zurückgegeben, das die nächste Antwort eines Threads darstellt.
Dim ctdNext As CommentThreaded
Set ctdNext = ActiveCell.AddCommentThreaded.Next()
Previous
Gibt ein CommentThreaded -Objekt zurück, das den vorherigen Threaded-Kommentar darstellt.
Wird für ein CommentThreaded -Objekt auf oberster Ebene (übergeordnet) aufgerufen, wird ein CommentThreaded -Objekt der obersten Ebene (übergeordnet) zurückgegeben, das den vorherigen Kommentar darstellt. Wenn Sie für ein Reply- CommentThreaded -Objekt aufgerufen wird, wird ein Reply- CommentThreaded -Objekt zurückgegeben, das die vorherige Antwort eines Threads darstellt.
Dim ctdPrevious As CommentThreaded
Set ctdPrevious = ActiveCell.AddCommentThreaded.Previous()
Replies
Wenn dieser Kommentar ein übergeordnetes Element ist, wird eine CommentsThreaded -Auflistung von CommentThreaded -Objekten zurückgegeben, bei denen es sich um untergeordnete/Antworten des angegebenen Kommentars handelt (sofern vorhanden).
Dim ctdReplies As CommentsThreaded
Set ctdReplies = ActiveCell.AddCommentThreaded.Replies
Resolved
ActiveCell.AddCommentThreaded.Resolved = True
Text
Legt Thread Kommentartext fest.
Dim strText As String
strText = ActiveCell.AddCommentThreaded.Text()
Arguments
Optional arguments
Die folgenden Argumente sind optional
Text (String) - Der hinzuzufügende Text.
Start (Long) - Die Nummer des Zeichens, bei dem der neue Text hinzugefügt wird.
Overwrite (Boolean) - False , wenn der Text eingefügt werden soll.