none
Erro ao inserir imagem RRS feed

  • Pergunta

  • Pessoal, bom dia. Tudo bem com vocês?

    Bom, tenho a seguinte macro

    Sub Botão1_Clique()
    Dim Foto As Variant
        Dim Esquerda, Topo, Largura, Altura As Single
        Foto = Application.GetOpenFilename("Imagem (*.jpg;*.jpeg;*.gif;*png), *.jpg;*.gif;*.jpeg;*.png,Todas (*.*), *.*", Empty, "Desenvolvido por.: Álvaro Horta e Suely Soares", Empty, Empty)
        Esquerda = ActiveCell.Left + 1
        Topo = ActiveCell.Top + 1
        Largura = ActiveCell.Width - 1
        Altura = ActiveCell.Height - 1
        If Foto <> False Then
            ActiveSheet.Shapes.AddPicture Foto, True, True, Esquerda, Topo, Largura, Altura
        End If
    End Sub

    O que acontece: Toda vez que eu tento inserir uma imagem com um tamanho grande (Ex.: 4 Mb), a macro da um erro nessa linha:
    ActiveSheet.Shapes.AddPicture Foto, True, True, Esquerda, Topo, Largura, Altura

    Então eu vou la, pego a foto e redimensiono para deixar com um tamanho menor (Ex.: 400 Kb), e a macro roda perfeitamente.
    Teria alguma solução?

    Muito obrigado e um ótimo dia a vocês.
    • Editado Álvaro Horta sábado, 6 de maio de 2017 07:48 Alteração no código
    sábado, 6 de maio de 2017 07:44

Todas as Respostas

  • Abra o arquivo de 4 mb ou mais no paint. 

    Salvar Como...

    Escolha JPG.

    Irá notar que a imagem terá o tamnaho em mb reduzido consideravelmente; Porém, estará com as mesmas dimensões.

    sábado, 6 de maio de 2017 16:39
  • Olá Alcides, primeiramente muito obrigado pela atenção.

    Bom, essa seria realmente uma opção, portanto eu já faço isso hoje.

    Mas o meu grande problema, é que as vezes a quantidade de fotos que eu tenho que fazer isso é tão grande que me toma muito tempo.

    Então eu queria saber se teria como fazer isso via macro, ou alguma forma de corrigir esse erro.

    Muito obrigado meu amigo.

    Abraços!!

    sábado, 6 de maio de 2017 23:42