Saberexcel - site das macros

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 tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel




 Baixe o exemplo de planilha das macros acima
 Excel planilha vba comentario insere determinada altura no comentario (21.47 kB)