Macros do Aplicativo Microsoft Excel VBA - reposiciona um comentario a partir da célula selecionada.
observem que na entrada da macro selecionei tres células referente a comentarios inseridos.


Sub Reposicionamento_comentario_selecionados()
On Error Resume Next
Range("G6,K14,O22").Select
Dim Sb As Range
Dim vMinhaCelula As Range
Set vMinhaCelula = Selection
For Each Sb In vMinhaCelula.Cells
With Sb.Comment
.Shape.Top = .Parent.Top + 5
.Shape.Left = .Parent.Offset(0, 1).Left + 5
End With
Next
vMinhaCelula.Select
[D1].Select
End Sub

Sub Reposicionamento_comentario_selecionados_II()
On Error Resume Next
Range("G6,K14,O22").Select
Dim Sb As Range
Dim vMinhaCelula As Range
Set vMinhaCelula = Selection
For Each Sb In vMinhaCelula.Cells
With Sb.Comment
.Shape.Top = .Parent.Top + 50
.Shape.Left = .Parent.Offset(0, 1).Left + 50
End With
Next
vMinhaCelula.Select
[D1].Select
End Sub


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

Macros do Aplicativo Microsoft Excel VBA, reposicionam todos os comentários na folha de planilha.
Saberexcel - o site das macros

Sub Reposisionando_todos_comentarios_planilha()
On Error Resume Next
Dim Sb As Comment
For Each Sb In ActiveSheet.Comments
Sb.Shape.Top = Sb.Parent.Top + 5
Sb.Shape.Left = Sb.Parent.Offset(0, 1).Left + 5
Next
End Sub

Sub Reposisionando_todos_comentarios_planilha_II()
On Error Resume Next
Dim Sb As Comment
For Each Sb In ActiveSheet.Comments
Sb.Shape.Top = Sb.Parent.Top + 60
Sb.Shape.Left = Sb.Parent.Offset(0, 1).Left + 15
Next
End Sub


Sub Reposisionando_todos_comentarios_planilha_III()
On Error Resume Next
Dim Sb As Comment
For Each Sb In ActiveSheet.Comments
Sb.Shape.Top = Sb.Parent.Top - 15
Sb.Shape.Left = Sb.Parent.Offset(0, 1).Left + 20
Next
End Sub


Aprenda Microsoft Excel VBA com qualidade Saberexcel

Saberexcel - site das macros Microsoft Excel VBA
Essa macros do Aplicativo Microsoft Excel VBA, mostram e ou ocultam todos os comentários existentes na folha de planilha

Sub mostrar_todos_comentarios()
On Error Resume Next
saber1.Shapes("sb1").Visible = True
saber1.Shapes("sb").Visible = False

Dim sb As Comment
For Each sb In ActiveSheet.Comments
sb.Visible = True
Next sb

End Sub

'Essa macro do Aplicativo Microsoft Excel VBA oculta todos os comentários existentes na planilha
Sub ocultar_todos_comentarios()
On Error Resume Next
saber1.Shapes("sb1").Visible = False
saber1.Shapes("sb").Visible = True

Dim sb As Comment
For Each sb In ActiveSheet.Comments
sb.Visible = False
Next sb

End Sub


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

Macros do Aplicativo Microsot Excel VBA, inserem uma determinada altura em comentarios.

Esta macro insere determinada altura no comentário
Sub Alterar_altura_comentarios()
[E5] = "Comentario com Altura(20)"
Texto_no_comentario
On Error Resume Next
Dim sb As Comment
For Each sb In ActiveSheet.Comments
sb.Shape.Height = 20
Next sb
End Sub

Macro auxliar para efeturar o teste.....
Sub Alterar_altura_comentarios_II()
[E5] = "Altura alterada para(60)"
Texto_no_comentario
On Error Resume Next
Dim sb As Comment
For Each sb In ActiveSheet.Comments
sb.Shape.Height = 60
Next sb
End Sub

Macro auxiliar com finalidade didática usada para o teste do usuário
Esta macro insere dados da célula ativa no comentario
Sub Texto_no_comentario()
On Error Resume Next
Dim sb As Range
For Each sb In Selection
sb.Comment.Text Text:=sb.Text
Next
End Sub


Aprenda Microsoft Excel VBA com qualidade - Saberexcel

Macro microsoft excel vba insere texto em comentario a partir de determinadas células.

Macros do Aplicativo Microsoft Excel VBA, inserem textos em um objeto Comentário através de célula, alternando-os.

Sub Texto_da_celula_no_comentario()
[F12] = "Texto da célula no comentário"
[F18] = "Saberexcel - o site das macros!"
[F25] = "Aprenda Microsoft Excel VBA com Qualidade - Saberexcel"

On Error Resume Next
Dim sb As Range
sb = Range("F12,F18,F25").Select
For Each sb In Selection
sb.Comment.Text Text:=sb.Text
Next

End Sub

Sub Texto_da_celula_no_comentario_1()
[F12] = "Aprender Macros Microsoft Excel VBA"
[F18] = "Esforço, boa vontade e necessidade de aprender!"
[F25] = "Muitos alunos já se profissionalizaram, produzem belos exemplos"

On Error Resume Next
Dim sb As Range
sb = Range("F12,F18,F25").Select

For Each sb In Selection
sb.Comment.Text Text:=sb.Text
Next

End Sub

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