Obtener imagenes desde una página web a Excel (macro vba)

obtener imagenes desde pagina web a Excel

¿Como hacer para importar imagenes desde una pagina web a tu hoja de Excel? fué lo que me pregunté antes de empezar un proyecto (catalogo de productos), revisando foros y web sobre excel encontré una simple solución, se trata de una macro muy corta y sencilla que te permite importar imagenes desde la url de ellas y listarlas en tu hoja de Excel. Si eres de los curiosos que busca aprender programación de macros vba este archivo puede ser de tu interés y si eres de aquellos que trabaja implementando proyectos en excel pues tienes a tu disposición esta macro que te puede servir en tu trabajo.

Estuve apunto de eliminar este archivo y no compartirlo pero recordé que en internet hay millones de personas y una de ellas necesitará de esta solución.

La macro para hacer esto es el siguiente código (Al final del post dejo el archivo para que puedan descargarlo):

Sub GetShapeFromWeb(strShpUrl As String, rngTarget As Range)
With rngTarget.Parent
.Pictures.Insert strShpUrl
.Shapes(.Shapes.Count).Left = rngTarget.Left
.Shapes(.Shapes.Count).Top = rngTarget.Top
End With
End Sub
Sub Obtener_imagen()
On Error Resume Next
For i = 2 To 6
Call GetShapeFromWeb(Range("a" & i).Value, Hoja1.Range("a65536").End(xlUp).Offset(i - 1, 0))
Next i
End Sub

Descargar Obtener imagenes desde pagina web a excel - macro vba.xls

Ingresa tu correo electrónico y te convertiré en un experto en Excel. ↓


También podría interesarte ...

Agrega tu comentario

Comentarios
  1. Posted by Gerardo A.
    • Posted by Gustavo A. Sebastiani Cépeda
  2. Posted by maria
    • Posted by Gustavo A. Sebastiani Cépeda
  3. Posted by vcp
    • Posted by Gustavo A. Sebastiani Cépeda
  4. Posted by Roberto Castro
  5. Posted by Santiago Cabezas