Detalhes de vba comentario insere determinada altura no comentario

Macros do Aplicativo Microsot Excel VBA, inserem uma determinada altura em comentarios.

Esta macro insere determinada altura no comentário
Sub Alterar_altura_comentarios()
[E5] = "Comentario com Altura(20)"
Texto_no_comentario
On Error Resume Next
Dim sb As Comment
For Each sb In ActiveSheet.Comments
sb.Shape.Height = 20
Next sb
End Sub

Macro auxliar para efeturar o teste.....
Sub Alterar_altura_comentarios_II()
[E5] = "Altura alterada para(60)"
Texto_no_comentario
On Error Resume Next
Dim sb As Comment
For Each sb In ActiveSheet.Comments
sb.Shape.Height = 60
Next sb
End Sub

Macro auxiliar com finalidade didática usada para o teste do usuário
Esta macro insere dados da célula ativa no comentario
Sub Texto_no_comentario()
On Error Resume Next
Dim sb As Range
For Each sb In Selection
sb.Comment.Text Text:=sb.Text
Next
End Sub


Aprenda Microsoft Excel VBA com qualidade - Saberexcel