Klasse CommentThreaded (Excel VBA)

Die Klasse CommentThreaded stellt einen Thread Kommentar einer Zelle dar.

Die wichtigste Prozeduren der Klasse CommentThreaded sind AddReply und Delete

Set

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)

Die folgenden Prozeduren können zum Festlegen der CommentThreaded Klassenvariablen verwendet werden : Replies, Worksheet.CommentsThreaded, CommentsThreaded.Item, Next, Previous, AddReply, Range.AddCommentThreaded und Range.CommentThreaded

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

Methoden

Die Hauptmethoden der Klasse CommentThreaded sind

AddReply - Wenn der Kommentar ein Kommentar auf oberster Ebene ist, wird ihm eine Antwort auf seine replies-Auflistung hinzugefügt.

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

Delete - Löscht den angegebenen Thread-Kommentar und alle diesem Kommentar zugeordneten Antworten (sofern vorhanden).

ActiveCell.AddCommentThreaded.Delete

Andere Methoden

CommentsThreaded.Item - Gibt ein einzelnes Objekt aus einer Auflistung zurück.

Next - Gibt ein CommentThreaded -Objekt zurück, das den nächsten Threaded-Kommentar darstellt.

Previous - Gibt ein CommentThreaded -Objekt zurück, das den vorherigen Threaded-Kommentar darstellt.

Text - Legt Thread Kommentartext fest.

Eigenschaften

CommentsThreaded.Count Gibt einen Long-Wert zurück, der die Anzahl der Objekte in der Auflistung darstellt.

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

CommentsThreaded.Parent Gibt das übergeordnete Objekt für das angegebene Objekt zurück.

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

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

Parent Gibt das übergeordnete Objekt für das angegebene Objekt zurück.

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

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