Excel Formula que transforma link em imagem

Ileusis LUNA ARAUJO E SILV · 21 de setembro de 2022

Olá, espero que estejam todos bem!

Eu vi no linkedin uma pessoa usando a fórmula procv + imagem para converter o link em imagem.

Achei interessante e útil para mim, tentei usar apenas a fórmula imagem, mas não consegui. Segui os passos do vídeo, também não rolou...

Tentei fazer VBA, porém minha planilha tem mais de mil itens, o que faz ela travar. (também não da para formatar do jeito que eu gostaria, ou seja, primeira coluna de cada linha conter a imagem pequena de cada produto).

Podem me ajudar a identificar o que estou fazendo de errado, por favor?

listagem final.xlsx

Midori · 22 de setembro de 2022

@Ileusis Luna Faltou o código que você tentou fazer.

Ileusis LUNA ARAUJO E SILV · 23 de setembro de 2022

@Midori Bom dia!

Do VBA? Eu segui a orientação desta página:https://pt.extendoffice.com/documents/excel/4212-excel-insert-image-from-url.html

E da imagem com procv companhei estas orientações

https://www.linkedin.com/feed/update/urn:li:activity:6973392480645861376/

Midori · 23 de setembro de 2022

@Ileusis Luna Para adicionar a imagem acho mais simples usar apenas macro com o evento Change na célula I7.

deejaywesley · 25 de setembro de 2022

Boa Noite @Ileusis Luna

veja se assim te ajuda

listagem final.rar

ative as macros

Ileusis LUNA ARAUJO E SILV · 27 de setembro de 2022

@deejaywesley Valeu a tenativa, acho que meu office não é compatível, abriu com erro na formula.

mas obrigada! Acho que tenho que me aprofundar em macro mesmo...

@Midori Vou estudar isso, obrigada!!!

Midori · 27 de setembro de 2022

@Ileusis Luna Com um Shape você pode passar o caminho da imagem para UserPicture, p.ex um retângulo.

E para carregar a imagem,

Call ActiveSheet.Shapes("Rectangle 1").Fill.UserPicture("teste.jpeg")

deejaywesley · 28 de setembro de 2022

Boa noite @Ileusis Luna

15 horas atrás, Ileusis Luna disse:

@deejaywesley Valeu a tenativa, acho que meu office não é compatível, abriu com erro na formula.

mas eu não usei formulas, as formulas que estão lá é as suas, eu usei so macro, é só ativalas e alterar o numero em i7 que a imagem muda.

Ileusis LUNA ARAUJO E SILV · 29 de setembro de 2022

@deejaywesley tô fazendo alguma cagança...

sou eu , pessoas, vcs foram maravilhosos! eu que estou querendo coisas avançadas demais para meu conhecimento. Preciso encontrar um curso mais focado para me desenvolver e parar de amolar rs..

ponho para depurar ele aparece isso

deejaywesley · 30 de setembro de 2022

boa noite @Ileusis Luna

achei estranho seu primeiro print, porque mesmo com o erro, deveria ter aparecido a janela web no lado direito, mas tenta substituir os dois códigos por este

Sub limpar()
      Sheets("Pesquisa").WebBrowser1.Navigate "about:blank"
End Sub

Sub criaPagina()
 Dim HTML As String
            '----------código HTML----------
        HTML = "<HTML>" & _
                "<TITLE>Pagina Carrega no evento Load</TITLE>" & _
                "<BODY>" & _
                "<img src=""" & Application.WorksheetFunction.VLookup(Range("I7").Value, Sheets("link imagens").[A1:B100000], 2, 0) & """ align=""middle"" width=""98%"" height=""98%"">" & _
                "</BODY>" & _
                "</HTML>"
                '----------HTML fim ---------------
        Sheets("Pesquisa").WebBrowser1.Document.Write HTML

End Sub

se mesmo assim continuar o erro, acho que pode ser diferença de office, no meu uso o 2007, mas ai você tenta inserir a janela web novamente

va na guia Desenvolvedor, inserir, e no ultimo quadrinho lá, Mais controles.

na janela que abrir, procure por - Microsoft web Browser

de OK, e clic em qualquer lugar da planilha para inseri-la, digite algum valor em i7 para ver se funciona...

ps: ignore a tela a direta do print, é o que estou montando para apuração dos candidatos da minha cidade!

14 horas atrás, Ileusis Luna disse:

Preciso encontrar um curso mais focado para me desenvolver

quanto ao curso, conhecimento a mais nunca é demais

14 horas atrás, Ileusis Luna disse:

e parar de amolar rs..

já essa parte eu discordo, muita coisa que sei hoje, aprendi com a galera aqui do fórum, e mesmo depois de tanto tempo, ainda não se livraram de mim, porque ainda continuo trazendo duvidas pra eles me ajudar kkkkk, e vou continuar trazendo kkkkkkkkkkkkk

tenta ai e fala o que deu.

ah! a proposito, qual a versão do seu office?

Ileusis LUNA ARAUJO E SILV · 7 de outubro de 2022

Em 29/09/2022 às 22:16, deejaywesley disse:

uita coisa que sei hoje, aprendi com a galera aqui do fórum, e mesmo depois de tanto tempo, ainda não se livrara

Ufa!!! Eu realmente fico sem jeito porque eu sempre abro questões, meu grande defeito é só aprender na pratica, teoria para mim é um tormento!!!!

meu office é profissional plus 2016

Rapaz, esse recurso está de Murphy. Ele não me deixa colocar, o erro é simples "Não é possível inserir o objeto."

Mas olha o que peguei sm querer, o quadro ao lado direito está lá sim, eu só que transparente