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

Dicas Microsoft Excel VBA(Visual Basic Application)
SaberExcel


TODAS AS FÓRMULAS EXISTENTES NA FOLHA DE PLANILHA EM COMENTÁRIOS
'Esta macro insere as formulas usadas em comentarios,
'Todas as formulas usadas na folha de planilha

Sub Formulas_em_Comentarios()
Dim cell, Largura, Altura

On Error Resume Next

For Each cell In ActiveSheet.UsedRange
If cell.HasFormula Then
cell.AddComment
cell.Comment.Text Text:=cell.FormulaLocal
With cell.Comment.Shape
Largura = .Width
Altura = .Height
.TextFrame.AutoSize = True

If .Width > 350 Then
.Width = 350
.Height = 55
End If

End With
End If
Next
Saber1.Shapes("sb1").Visible = True
Saber1.Shapes("sba").Visible = False
End Sub

'Macro para deletar todos os comentários inseridos na planilha.
Sub Deleta_comentarios()
For i = ActiveSheet.Comments.Count To 1 Step -1
ActiveSheet.Comments(i).Delete
Next i
Saber1.Shapes("sba").Visible = True
Saber1.Shapes("sb1").Visible = False
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel

Baixar exemplo de planilha excel vba contendo a macro acima

Publicidade:

Compras pela internet com muita segurança e bons preços

Saberexcel - o site das macros
Caro E_Marcondes, sou programador e preciso de uma macro, que insere um triângulo azul no lugar do indicador(vermelho) do comentário,
eu tinha mas acabei perdendo, se você tiver, será que poderia me enviar, obrigado. Reginaldo
Sim tenho sim, junto à minha coleção de 15.000 macros achei, na verdade é uma macro servida de uma função:
Cor do triângulo do indicador do comentário em azul

'Option Explicit

Sub Criar_triangulo_indicador_comentario()
vCriarIndicador vbBlue, "EPM"
End Sub


Public Function vCriarIndicador(CommentIndicatorColor As Long, _
CommentIndicatorName As String) As Boolean
'
Dim IDnumber As Long
Dim aCell As Range
Dim aComment As Comment
Dim aShape As Shape
Dim aWorksheet As Worksheet
Dim aWorkbook As Workbook

vCriarIndicador = False

If CommentIndicatorName = vbNullString Then GoTo ExitFunction
On Error GoTo ExitFunction
Set aWorkbook = ActiveWorkbook

IDnumber = 0
'loop through all wprksheets in the active workbook and all comments
'in each worksheet and create the comment shapes

For Each aWorksheet In aWorkbook.Worksheets
For Each aShape In aWorksheet.Shapes
If Left(aShape.Name, Len(CommentIndicatorName)) = _
CommentIndicatorName Then
aShape.Delete
End If
Next aShape

For Each aComment In aWorksheet.Comments

Set aCell = aComment.Parent

If InStr(1, aComment.Shape.TextFrame.Characters.Text, ":") > 0 Then
If Left(aComment.Shape.TextFrame.Characters.Text, InStr(1, aComment.Shape.TextFrame.Characters.Text, ":") - 1) = Application.UserName Then

GoSub CreateCommentIndicator

End If
End If
Next aComment
Next aWorksheet

vCriarIndicador = True
ExitFunction:

On Error GoTo 0
Set aCell = Nothing
Set aComment = Nothing
Set aShape = Nothing
Set aWorksheet = Nothing
Set aWorkbook = Nothing
Exit Function

CreateCommentIndicator:

Set aShape = aWorksheet.Shapes.AddShape(Type:=msoShapeRightTriangle, _
Left:=aCell.Left + aCell.Width - 5, _
Top:=aCell.Top, _
Width:=5, _
Height:=5)
IDnumber = IDnumber + 1
With aShape
.Name = CommentIndicatorName & CStr(IDnumber)
.IncrementRotation -180#
.Fill.Visible = msoTrue
.Fill.Solid
.Fill.ForeColor.RGB = CommentIndicatorColor
.Line.Visible = msoTrue
.Line.Weight = 1
.Line.Style = msoLineSingle
.Line.DashStyle = msoLineSolid
.Line.ForeColor.RGB = CommentIndicatorColor
.Placement = xlMove
End With
Return
End Function



Aprenda Microsoft Excel VBA (( Saberexcel ))