Notifications
Clear all

Importar Imagem da Web

3 Posts
1 Usuários
0 Reactions
677 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pessoal,

Tem como importar uma imagem da web (link: ) em um controle de imagem?

A última vez que fiz essa pergunta, um ninja aqui do planilhando me passou o seguinte código:

Sub Imagem()

WebBrowser1.Navigate " "

End Sub

Me ajudou demais.

Mas agora gostaria que apenas a imagem fosse importada, sem navegador e sem barra de rolagem.
Pensei em um código vba no qual eu mudo o link e a imagem é importada automaticamente. Tem como?

Obrigado

 
Postado : 27/03/2013 7:19 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Talvez seja isso que você quer...

Sub AleVBA_Importar()
Set n = ActiveSheet.Pictures.Insert("http://droughtmonitor.unl.edu/drmon.gif")
With Range("c12")
t = .Top
l = .Left
End With
With n
.Top = t
.Left = l
End With
End Sub

Att

 
Postado : 28/03/2013 4:25 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Alexandre, xapa, se pudesse, te pagava uma cerveja.

Muitíssimo obrigado.

Se puder me dizer como faço para dimensionar a figura, seria ótimo. Mas já estou bastante satisfeito com essa rotina.

 
Postado : 09/04/2013 10:59 am