Añadir texto con formato al texto existente en un comentario

[cucoland]

Hola, he buscado durante días la posibilidad de añadir un texto con formato a un texto de un comentario de celda y no he encontrado solución. Sé que se puede realizar aunque no se cómo después de ver algunos ejemplos en el siguiente enlace

enlace

enlace 2

El tema es que tengo múltiples celdas con comentarios incluidos y necesito incluirle una palabra concreta a los textos con diferente color en función de lo que haya realizado previamente. La macro la tengo asociada a un botón para que simplemente seleccione la celda, pulse el botón y listo, de manera que funcionase sin definir rango, sólo seleccionando la celda activa.

Un ejemplo:

comentario: Cliente x, código z

añadido: GRABADO (en color)

de manera que me quedaría:

Cliente x, código z

GRABADO

Agradezco la ayuda, a ver si entre todos lo conseguimos.

[cucoland]

Después de probar he conseguido realizar algo parecido a lo que busco.

Ahora la idea sería añadir el texto al final y no al principio. Y que el inputbox permitiera más de una línea estaría bién.

Sub añadir()

Dim comentario As String

Dim campo As String

'Si existe algún comentario en la celda activa marcamos el comentario

If Not ActiveCell.Comment Is Nothing Then

    comentario = ActiveCell.Comment.Text

        ActiveCell.Comment.Text Text:="GRABADO " & Chr(10) & comentario

        ActiveCell.Comment.Shape.TextFrame.Characters(1, 8).Font.ColorIndex = 13

        ActiveCell.Comment.Shape.TextFrame.Characters(9, 100).Font.Bold = False

        ActiveCell.Select

Else

'En caso contrario pedimos texto inicial

    campo = InputBox("Inputbox", "Comentario", "")

        ActiveCell.AddComment Text:=campo & Chr(10)

End If

End Sub[/CODE]