Saberexcel - o site das macros
Inserir um comentário com texto formatação fonte e tamanho predefinido

Esta macro do aplicativo Microsoft Excel VBA, insere um comentario personalizado, com formatação, e texto pre-determinado:
Determinar a fonte da formatação
Determinar a cor da fonte
Inserir (autofit) para ajustar ajuste de tamanho do comentário ao texto

Sub inserir_comentario()
Dim x As Range
Set x = ActiveCell

x.ClearComments
x.AddComment.Text _
Text:="Aprender excel vba é fundamental (Saberexcel)"
x.Comment.Visible = True
x.Comment.Shape.Select True

With Selection.Font
.Name = "Tahoma"
.FontStyle = "Regular"
.Size = 12
End With

With Selection.Interior
x.Interior.ThemeColor = xlThemeColorAccent3 '2007 se testar outra versão, desabilite a linha
End With

With Selection
.Placement = xlFreeFloating
.PrintObject = False
.Locked = True
.LockedText = True
.AutoSize = True
End With

Application.DisplayCommentIndicator _
= xlCommentIndicatorOnly
End Sub


Aprenda Microsoft Excel VBA (SaberExcel)

Saberexcel - o site das macros microsfot excel vba
Macro do Aplicativo Microsoft Excel VBA, formata o comentário com fundo Azul em todas as folhas de planilhas (For each)

Sub Formatar_Comentario()
Dim Wks As Worksheet, vComentario As Comment

For Each Wks In Worksheets
For Each vComentario In Wks.Comments
vComentario.Shape.OLEFormat.Object.AutoSize = True

With vComentario.Shape.OLEFormat.Object.Font
.Name = "Verdana"
.Size = 10
.ColorIndex = 9
.Bold = True
End With

vComentario.Shape.OLEFormat.Object.ShapeRange.Fill.ForeColor.SchemeColor = 35
Next vComentario
Next Wks
End Sub

Aprenda Microsoft Excel VBA ((Saberexcel))

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)

Inserir um gráfico no comentário na celula (a1)
Esta macro pega o gráfico da plan1, e insere no comentário na célula A1 da Plan1, forneça para macro o endereço "Path" Diretório correto onde irá salvar o gráfico. Primeiro crie o gráfico que deseja exportar para o diretório, e automaticamente, inserir no comentário na célula(A1)

Sub Insere_Image_Grafico_dentro_comentario_CelulaA1()
Dim vMinhaImagem As String
Dim vGrafico As ChartObject
Dim Altura As Single, Largura As Single

vMinhaImagem = "C:\vba\imagem_escolhida.gif" ' vai exportar essa imagem do gráfico criado para esse dir

'Define sobre o gráfico dentro da Planilha Plan1
Set vGrafico = Plan1.ChartObjects(1)
'Exporta o gráfico criado como GIF
vGrafico.Chart.Export vMinhaImagem, "GIF"

'recupera a dimensão do gráfico para aplicar no comentário
Altura = vGrafico.Height
Largura = vGrafico.Width

'Verifica se já existe um comentário na celula A1
'e deleta se existe
If Not Plan1.Range("A1").Comment Is Nothing Then _
Plan1.Range("A1").Comment.Delete

'Criar um novo comentário na célula a1
With Plan1.Range("A1")
.AddComment
.Comment.Visible = False
'Define a altura do comentário do grafico
.Comment.Shape.Height = Altura
'Define a largura do comentário
.Comment.Shape.Width = Largura
'Insere a imagem dentro do comentário
.Comment.Shape.Fill.UserPicture vMinhaImagem
End With

'deleta a imagem exportada
Kill vMinhaImagem

'deleta o gráfico
vGrafico.Delete
End Sub

Aprenda Microsoft Excel VBA (( SaberexExcel ))

Saberexcel - site das macros

Macro do Aplicativo Microsofoft Excel VBA, formata o comentário em uma determinada planilha com a cor verde de fundo e a fonte em azul é.

Sub formata_cores_comentario()
Dim Wsh As Worksheet, vComentario As Comment
For Each Wsh In Worksheets
For Each vComentario In Wsh.Comments

vComentario.Shape.OLEFormat.Object.AutoSize = True
With vComentario.Shape.OLEFormat.Object.Font
.Name = "Tahoma"
.Size = 10
.ColorIndex = 5 'cor número cinco refere-se a cor Azul
End With
vComentario.Shape.OLEFormat.Object.ShapeRange.Fill _
.ForeColor.SchemeColor = 42 '
Next vComentario

Next Wsh
End Sub

Aprenda Microsoft Excel VBA (( SaberExcel ))