Update
Repetição das imagens:
Estranho que eu não consigo reproduzir o erro, simplesmente acontece.
Normalmente é sempre que dentro da mesma celula mexo um pouco a img para os lados quando voltar a abrir o ficheiro vai duplicar(nem sempre acontece).
Outro ponto estranho que não sei se é normal é a função ser chamada n vezes(n = a nº de vezes que a função é usada no ficheiro).
Inseri este código olha o resultado:
flag = HASpic(Application.Caller)
If flag Then
Debug.Print "Já tem picture"
PrinciQualidade14 = iNumero
Exit Function
Else
Debug.Print "pumba picture"
If iNumero > 0 And iNumero < 15 Then
InserirImagem iNumero, Application.Caller
Else
Debug.Print "Numero incorreto"
End If
End If
Resultado:
Já tem picture
Já tem picture
Já tem picture
Já tem picture
Já tem picture
Já tem picture
Já tem picture
Já tem picture
Já tem picture
pumba picture
Valor: $F$5
Já tem picture
Já tem picture
pumba picture
Valor: $F$2