VBA: Adicionar foto a comentário

Código para inserção de foto em comentário, como no exemplo:

Sub AddPictureToComment()

     Dim rng As Range

    Dim shp As Comment

    Set rng = ActiveCell

    If Not rng.Comment Is Nothing Then

        rng.Comment.Delete

   End If

   If rng.Text <> “” Then

      Set shp = rng.AddComment(“”)

1

      shp.Shape.Fill.UserPicture rng.Text

   End If

End Sub