Classe Comment - comentário (Excel VBA)

A classe Comment representa um comentário de célula. Para usar uma variável de classe Comment, ela primeiro precisa ser instanciada por exemplo

Dim cmm as Comment
Set cmm = ActiveCell.Comment

For Each

Aqui está um exemplo de processamento dos itens Comment em uma coleção.

Dim cmm As Comment
For Each cmm In Application.Comments
	
Next cmm

Author

Retorna o autor do comentário. String somente leitura.

Dim strAuthor As String
strAuthor = ActiveCell.Comment.Author

Delete

Exclui o objeto.

ActiveCell.Comment.Delete

Next

Retorna um objeto Comment representando o próximo comentário.

Este método trabalha somente em uma planilha. O uso deste método no último comentário em uma planilha retorna Null (não o próximo comentário na próxima planilha).

Dim cmmNext As Comment
Set cmmNext = ActiveCell.Comment.Next()

Previous

Retorna um objeto Comment representando o comentário anterior.

Este método trabalha somente em uma planilha. O uso deste método no primeiro comentário em uma planilha retorna Null (não o último comentário na planilha anterior).

Dim cmmPrevious As Comment
Set cmmPrevious = ActiveCell.Comment.Previous()

Shape

Retorna um objeto Shape que representa a forma anexada ao comentário especificado.

Dim shpShape As Shape
Set shpShape = ActiveCell.Comment.Shape

Text

Define texto de comentário.

Text (Text, Start, Overwrite)

Dim strText As String
strText = ActiveCell.Comment.Text()

Arguments

Optional arguments

Os seguintes argumentos são opcionais

Text (String) - O texto a ser adicionado.

Start (Long) - O número do caractere onde o texto adicionado será inserido. Se este argumento for omitido, qualquer texto existente no comentário será excluído.

Overwrite (Boolean) - False para inserir o texto. O valor padrão é true (o texto é substituído).

Visible

Retorna ou define um valor Boolean que determina se o objeto será visível. Leitura/gravação.

ActiveCell.Comment.Visible = True