Home Excel - Dicas Microsoft Excel VBA Excel VBA - Comentarios Excel planiha vba comentario ajusta tamanho do comentario selecionado

Excel planiha vba comentario ajusta tamanho do comentario selecionado

E-mail Imprimir PDF

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)



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

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje362
mod_vvisit_counterOntem5154
mod_vvisit_counterEsta Semana25022
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês38751
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10461580
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA