Boa tarde, @anderson

Como vc pretende fazer? Ao invés de imagem que tende a inchar o tamanho do arquivo, eu baixaria uma dessas fontes gratuitas de Emojis e usaria o código do caractere correspondente para inserir o símbolo.

Alguns já estão até à mão: por exemplo, a carinha feliz se consegue com ALT 1*. As letras J, L, C e D formatadas com a fonte Wingdings fazem o feliz, o triste, o polegar pra cima e o pra baixo, mas não têm o de óculos.

Queria inserir via código, usando caracteres.

Tentei inserir os caracteres gravando uma macro, mas o gravador de macro não reconheceu nenhum.

Já havia tentado winding, mas aparecem outros símbolos na célula.

Imaginei algo assim, por exemplo com os da fonte Wingdings:

Sub InsereEmoticons()
  Dim PosEmoji As Variant
  ActiveCell.Value = "Se vc está J, dê um C. Se vc está L, clique em D."
  For Each PosEmoji In Array(12, 21, 35, 48)
    ActiveCell.Characters(PosEmoji, 1).Font.Name = "Wingdings"
    ActiveCell.Characters(PosEmoji, 1).Font.Size = 16
  Next PosEmoji
End Sub 

@edsonbr

Perfeito, Edson.

Muito Obrigado.