SaberExcel - o site das macros
Esta macro do Aplicativo Microsoft Excel VBA, insere um comentário falso na folha de planilha,
isto é insere autoformas que imitam um comentário, um pequeno triângulo vermelho representando
o indicador do comentário (no canto superior esquerdo da célula) e um retangulo contendo o comentário
propriamente dito, obtido atraves de um inputbox(entrada de dados).
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
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Baixe o exemplo de planilha contendo a macro acima.
Excel planilha vba comentario macro insere falso comentario autoformas (20.98)
