Detalhes de vba comentario formata fonte cor tamanho e insere dados

PropriedadeValor
Nome:vba comentario formata fonte cor tamanho e insere dados
Descricao:

SaberExcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, formata o todos os comentários existentes
no livro, isto é em todas as folhas de planilhas.
1º.) - Formata o tamanho da fonte a ser empregada
2º.) - Determina o nome da fonte a ser empregada
3º.) - Formata a cor da fonte a ser empregada
4º.) - Mostra o email desejado em todos os comentários.
5º.) - Insere dados na célula(D17) e carrega o comentário com esses dados.
6º.) - Insere formato da fonte em negrito.
7º.) - Insere formato da da data e hora atual (Agora()).

Sub vba_comentario_formatando()
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
Dim Wsh As Worksheet, vMeuComentario As Comment

For Each Wsh In Worksheets
For Each vMeuComentario In Wsh.Comments
vMeuComentario.Shape.OLEFormat.Object.AutoSize = True

With vMeuComentario.Shape.OLEFormat.Object.Font
Range("D17").Comment.Text Text:= _
"Excel VBA Estudos®" & Now() & Chr(10) & " * Digite um valor menor que Célula E18! - << [email protected] >>"
.Name = "Courrier New"
.Size = 10
.ColorIndex = 12
.Bold = True
End With

vMeuComentario.Shape.OLEFormat.Object.ShapeRange.Fill.ForeColor.SchemeColor = 27
Next vMeuComentario
Next Wsh
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True
End Sub


Aprenda Microsoft Excel VBA(Visual Basic Application)


Nome do arquivo:vba comentario formata fonte cor tamanho e insere dados.zip
Tamanho: Vazio
Tipo:zip (Tipo de Mime: application/zip)
Autor:SaberExcel
Criado em: 19/11/2010 20:33
Visitas:Todos
Responsavel:Editor
Acessos:540 Acessos
Atualizado em: 19/11/2010 20:36
Site: