Visual Basic para Aplicaciones - Control de Imagen con imagen de Internet

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 4
Ha aumentado su posición en 4 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Control de Imagen con imagen de Internet

Publicado por Carlos (3 intervenciones) el 04/10/2019 00:20:01
Buen día a todos!

Este es mi segundo post en el foro y espero explicarme bien en el siguiente reto que se me presenta y espero y me puedan ayudar con sus conocimientos.

Basicamente estoy tratando de utilizar una imagen de internet en un control de Imagen utilizando el siguiente codigo:

1
Image1.Picture = LoadPicture("MI RUTA EN INTERNET")

Mas sin embargo no logro hacer que se visualice en mi userform.
Este codigo se ejecuta despues de pulsar un boton.

Espero que ustedes tengan alguna idea de como realizar esta tarea, gracias por su ayuda de antemano.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alfredo
Val: 123
Bronce
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Control de Imagen con imagen de Internet

Publicado por Alfredo (38 intervenciones) el 04/10/2019 21:35:35
Hola Carlos

Necesitarías bajar la imagen a tu PC y después leerla, intenta con este código:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
 
Public Function DownloadImagen(URL As String, ArchivoLocal As String) As Boolean
   Dim Retorno As Long
   '
   Retorno = URLDownloadToFile(0, URL, ArchivoLocal, 0, 0)
   '
   If Retorno = 0 Then DownloadImagen = True
   '
End Function
 
Private Sub Command1_Click()
   '
   DownloadImagen "http://www.DIRECCION_DE_LA_IMAGEN", ThisWorkbook.Path + "\Imagen.jpg"
   '
   UserForm1.Image1 = LoadPicture(ThisWorkbook.Path + "\imagen.jpg")
   '
End Sub

Ya nos comentaras después

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 3
Ha disminuido su posición en 21 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Control de Imagen con imagen de Internet

Publicado por FRANCISCO ISRAEL (2 intervenciones) el 04/04/2020 16:33:56
Muy buena solución. Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar