Excel planiha vba comentario ajusta tamanho do comentario selecionado

Seg, 13 de Dezembro de 2010 14:50 Expedito Marcondes
Imprimir

Saberexcel - o site de quem precisa aprender macros microsoft excel vba

vba_comentario_ajusta_tamanho_do_comentario_selecionado


Essa macro do Aplicativo Microsoft Excel VBA, ajusta comentarios em determinadas células selecionadas
neste caso o código selecionará os comentarios nas células(D6;E16;G27).
foi inserido intensionalmente mais algumas fórmulas para auxilar o teste,
(Aumenta o tamanho do comentário, ao mesmo tempo em que insere dados digitado na célula ativa)

Sub Auto_ajuste_comentarios_selecionados()
On Error Resume Next
Dim Sbx As Range
Dim vMinhaRange As Range
[D6,E16,G27].Select
Set vMinhaRange = Selection
For Each Sbx In vMinhaRange.Cells
With Sbx.Comment
.Shape.TextFrame.AutoSize = True
End With
Next Sbx
vMinhaRange.Select
[D6].Value = "Ajustando comentario"
Adiciona_Comentario_com_texto
End Sub

Macro auxiliar para o teste de ajuste, aumenta o tamanho
do comen-tario para realização do teste da macro acima, observem que a macro
Sub Adiciona_Comentario_com_texto, adiciona o texto da célula D6 no primeiro
comentário, finalidade didática .

Sub Alterando_tamanho_teste()
Dim sb As Object
For Each sb In ActiveSheet.Comments
sb.Shape.Width = 144
sb.Shape.Height = 72
Next sb
[D6].Value = "Alterando tamanho para o teste!!"
Adiciona_Comentario_com_texto
End Sub

Essa macro foi usada também como auxiliar ao ser chamada insere os dados da célula(D6) no comentário.

Sub Adiciona_Comentario_com_texto()
On Error Resume Next
[D6].AddComment
[D6].Comment.Text Text:=[D6].Text
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 com as macros acima
Excel planilha vba comentario ajusta tamanho do comentario selecionado (22.84 kB)



Tags:
Última atualização em Qua, 10 de Agosto de 2011 08:18