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

Dicas  Excel Macros VBA


Pergunta 16:

Caros amigos, eu queria saber se é possível, inserir marcadores no comentário, isto é numerar os comentários, é possível, existe um jeito??

Pergunta 16:
Sim, é  possível, através de uma macro você pode enumerar os comentários, a macro inseri pequenos shapes (desenhos) quadrados no lugar dos marcadores contendo o numero de cada um, em ordem ascendente  1, 2, .... (segue a macro para deletar para teste)

Sub Comentario_Numero_shapes_insere()
Dim ws As Worksheet
Dim cmt As Comment
Dim lCmt As Long
Dim rngCmt As Range
Dim shpCmt As Shape
Dim shpW As Double 'shape width
Dim shpH As Double 'shape height

Set ws = ActiveSheet
shpW = 8
shpH = 6
lCmt = 1

For Each cmt In ws.Comments
Set rngCmt = cmt.Parent
With rngCmt
Set shpCmt = ws.Shapes.AddShape(msoShapeRectangle, _
rngCmt.Offset(0, 1).Left - shpW, .Top, shpW, shpH)
End With
With shpCmt
With .Fill
.ForeColor.SchemeColor = 9 'white
.Visible = msoTrue
.Solid
End With
With .Line
.Visible = msoTrue
.ForeColor.SchemeColor = 64 'automatico
.Weight = 0.25
End With
With .TextFrame
.Characters.Text = lCmt
.Characters.Font.Size = 4
.MarginLeft = 0#
.MarginRight = 0#
.MarginTop = 0#
.MarginBottom = 0#
.HorizontalAlignment = xlCenter
End With
End With
lCmt = lCmt + 1
Next cmt

End Sub
'----------------------------------'
remove os indicadores
Option Explicit
Sub RemoveIndicatorShapes()

Dim ws As Worksheet
Dim shp As Shape

Set ws = ActiveSheet

For Each shp In ws.Shapes
If Not shp.TopLeftCell.Comment Is Nothing Then
If shp.AutoShapeType = _
msoShapeRectangle Then
shp.Delete
End If
End If
Next shp

End Sub