|
 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)
|