Dicas  Excel Macros VBA   

Pergunta 23:
Preciso inserir um comentário (clone) falso, isto é possível com a ferramenta VBA, através de macros?????

Resposta 23:
Sim é possível, esta macro inseri um falso comentário, pode perceber que
inclusive o triângulo vermelho do indicador fica do lado
esquerdo da célula.

Sub Falso_Comentario()
Dim com As String
Dim aSh As Worksheet
Dim cloneC As Shape

com = InputBox("Insira seu comentário.....", _
"Inserir comentário que será falso")
If com <> "" Then
On Error Resume Next
With Selection.Validation
.Add Type:=xlValidateInputOnly
.InputTitle = "Falso comentário :"
.InputMessage = com
End With
Else: Exit Sub
End If
Application.ScreenUpdating = False
Set aSh = ActiveSheet
Set poZ = ActiveCell
p1 = poZ.Top
p2 = poZ.Left
Set cloneC = aSh.Shapes.AddShape(msoShapeRightTriangle, _
p2, p1, 5#, 5#)
With cloneC
.IncrementRotation 90#
.Fill.ForeColor.SchemeColor = 10
.Line.Visible = msoFalse
End With
End Sub