Download
Relação .doc:   15.000  Macros, Funções e  Fórmu
las

Dicas  Excel Macros VBA

Formata fonte do comentário e mostra texto desejado
Pergunta 19:


Preciso fazer uma formatação em um comentário,  que mostre o nome do e-mail, formate o tamanho da cor da fonte e nome da fonte, como também em negrito e cor interior é azul, é possível fazer isso com um comentário via vba.
Resposta 19:

Sim é possível, esta macro formata um comentário existente no D17, formata comentário, inseri um texto formata fonte.

Sub FormatarComentario()
'ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
Dim wks As Worksheet, MyCmt As Comment

For Each wks In Worksheets
For Each MyCmt In wks.Comments
MyCmt.Shape.OLEFormat.Object.AutoSize = True

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

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