Macro formata o nome do autor do comentário em vermelho
Saberexcel - o site das macros

Esta macro do Aplicativo Microsoft Excel VBA, mostrar nome do autor no comentário formatado em vermelho.
Sub adicionando_comentario_Titulo_autor_vermelho()
Dim TB As TextBox
With ActiveCell
If Not .Comment Is Nothing Then .Comment.Delete
With .AddComment("XL-Eves®" & vbLf & "Jesus é o Caminho a Verdade e a Luz")

Set TB = .Shape.OLEFormat.Object
With TB.Characters(1, 7).Font
.Bold = True
.Color = vbRed
End With
End With
End With
End Sub

Aprenda Microsoft Excel VBA com Sabaerexcel
Em casa, sozinho, com baixo custo.

Saberexcel - o site das macros
Formatando a fonte do comentário em negrito as quatro primeiras letras

Essa macro adiciona e formata as primeira 4 letras em negrito de um comentário
Macro formata de acordo com o números de letras desejado, observe a linha de código Selection.Characters(1, 4).
Esta macro formata o comentário as 4 primeiras letras, formata a fonte em negrito e se na célula já um houver comentário mostra um erro, manda selecionar outra célula.

Sub comentario_4_primeira_letra_Negrito()

On Error GoTo sbError

If Not ExisteCommentaire Then
ActiveCell.AddComment
End If

ActiveCell.Comment.Visible = True
ActiveCell.Comment.Text Text:="Saberexcel - Comentário para teste!"
ActiveCell.Comment.Shape.Select
Selection.Characters(1, 4).Font.FontStyle = "Bold"
ActiveCell.Comment.Visible = False
Exit Sub
sbError: MsgBox ("Comentário Existente!, selecione outra célula!"): Exit Sub

End Sub

Aprenda Microsoft Excel VBA (Saberexcel)
em casa, sozinho, a custo muito baixo. (esforço e vontade)

Saberexcel - o site das macros
Esta macro do aplicativo Microsoft Excel VBA, formatam o tamanho da fonte
dos comentarios em uma determinada folha de planilha

Sub Tamanho_fonte_comentario()
On Error Resume Next
Dim sbComentario As Comment
For Each sbComentario In ActiveSheet.Comments
sbComentario.Shape.TextFrame.Characters.Font.Size = 9
Next
End Sub

'Esta macro também formata o tamanho da fonte dos comentarios, porém, age
'como uma auxiliar para testes.
Sub Tamanho_fonte_comentario()
On Error Resume Next
Dim sbComentario As Comment
For Each sbComentario In ActiveSheet.Comments
sbComentario.Shape.TextFrame.Characters.Font.Size = 18
Next
End Sub

Aprenda Microsoft Excel VBA com qualidade Saberexcel
sozinho em casa, com baixo custo

Compre com segurança numa das maiores lojas do pais, tem de tudo a bons preços.

Saberexcel - dicas de macros microsoft excel vba

Essa macro do aplicativo Microsoft Excel VBA adiciona um um texto a um comentario a partir da célula ativa.

Sub adicionando_comentario_com_texto()
On Error Resume Next
ActiveCell.AddComment
ActiveCell.Comment.Text Text:=ActiveCell.Text
End Sub

'Macro auxiliar para os testes dos alunos desenvolvedores
Sub deleta_todos_teste()
Dim resposta As String
resposta = MsgBox("Deseja deletar todos os comentarios para teste?", vbYesNo + vbCritical, _
"Saberexcel - Site das Macros")
If resposta = 6 Then '=sim
For Each sb In ActiveSheet.Comments
sb.Delete
Next
End If
End Sub

Aprenda Microsoft Excel VBA com qualidade Saberexcel

Saberexcel - o site das macros
Macro ao Aplicativo Microsoft Excel VBA, arredonda comentarios nos cantos

Sub Adiciona_arredondando_comentario()
Application.ScreenUpdating = False
On Error GoTo ErrorSaber
With ActiveCell
.AddComment
.Comment.Visible = True
.Comment.Shape.AutoShapeType = msoShapeRoundedRectangle
.Comment.Shape.Select True
.Comment.Text Text:="Aprenda Microsoft Excel VBA com qualidade Saberexcel"
End With
With Selection
.Font.Size = 8
.ShapeRange.Shadow.Visible = msoFalse
.ShapeRange.ScaleWidth 1.2, msoFalse, msoScaleFromTopLeft
.ShapeRange.ScaleHeight 0.5, msoFalse, msoScaleFromTopLeft
.ShapeRange.Adjustments.Item(1) = 0.25
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
ErrorSaber:
Application.ScreenUpdating = True
End Sub

'Macro auxiliar usada nos testes com medidas diferentes e arredondados nos cantos
Sub Adiciona_arredondando_comentario_II()
Application.ScreenUpdating = False
On Error GoTo ErrorSaber
With ActiveCell
.AddComment
.Comment.Visible = True
.Comment.Shape.AutoShapeType = msoShapeRoundedRectangle
.Comment.Shape.Select True
.Comment.Text Text:="Aprenda Microsoft Excel VBA com qualidade Saberexcel"
End With
With Selection
.Font.Size = 11
.ShapeRange.Shadow.Visible = msoFalse
.ShapeRange.ScaleWidth 1.6, msoFalse, msoScaleFromTopLeft
.ShapeRange.ScaleHeight 1.3, msoFalse, msoScaleFromTopLeft
.ShapeRange.Adjustments.Item(1) = 4.25
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter

End With
ErrorSaber:
Application.ScreenUpdating = True
End Sub

Macro auxiliar para os testes dos alunos desenvolvedores
Sub deleta_todos_teste()
Dim resposta As String
resposta = MsgBox("Deseja deletar todos os comentarios para teste?", vbYesNo + vbCritical, _
"Saberexcel - Site das Macros")
If resposta = 6 Then '=sim
For Each sb In ActiveSheet.Comments
sb.Delete
Next
End If
End Sub


Aprenda Microsoft Excel VBA(Visual Basic Application) com qualidade Saberexcel