Skip to main content
replaced http://pt.stackoverflow.com/ with https://pt.stackoverflow.com/
Fonte Link
Aviso removido Chamar atenção por ComunidadeBot
Fim da Recompensa sem resposta vencedora por ComunidadeBot
Tweeted twitter.com/StackOverflowPT/status/700349763527507968
removeu 12 caracteres do conteúdo
Fonte Link
jsantos1991
  • 2,4mil
  • 4
  • 21
  • 42
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
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
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
picture
Valor: $F$5
Já tem picture
Já tem picture
picture
Valor: $F$2
Aviso adicionado Chamar atenção por jsantos1991
Recompensa Oferecida vale 100 pontos de reputação por jsantos1991
mais detalhes. mais código
Fonte Link
jsantos1991
  • 2,4mil
  • 4
  • 21
  • 42

Update

Repetição das imagens: inserir a descrição da imagem aqui

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

Update

Repetição das imagens: inserir a descrição da imagem aqui

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
Fonte Link
jsantos1991
  • 2,4mil
  • 4
  • 21
  • 42
Carregando