Hola buenas tardes, necesito me ayuden a completar este desarrollo por favor.

Tengo una Macro que me genera el codigo QR y la pone en la celda correcta sin problema.

El detalle esta en que si no estoy conectado a internet y abro el archivo de excel la imagen no se visualiza solo dice "No se puede mostrar la imagen vinculada".

Lo que necesito es que al bajar la imagen se salve en C:\ y despues jalarla a la hoja de Excel como imagen para que siempre que abra el archivo de Excel se pueda visualizar.

Gracias y espero se pueda hacer.

'recorre la columna B hacia abajo hasta el final donde encuetra datos.

Sub Test2e()


    'Seleccionar celda B2, *primera línea de datos*.

    Range("B2").Select

    ' Configurar el bucle Do para que se detenga al llegar a una celda vacía.

    Do Until IsEmpty(ActiveCell)

        ' Inserte el código aquí.


        Dim URL As String


        URL = ActiveCell

        ActiveCell.Offset(0, -1).Select


        ActiveSheet.Pictures.Insert(URL).Select


        ActiveCell.Offset(0, 1).Select

        ActiveCell.Offset(1, 0).Select

    Loop

      MsgBox "Total de QR Generados "

End Sub[/CODE]

Codigo QR e.rar

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


On Error Resume Next

If Not Intersect(Target, Range("A2:A8")) Is Nothing Then

    Image1.Picture = _

        LoadPicture(ActiveWorkbook.Path & "\imagenes\" & Target & ".jpg")

End If


End Sub[/CODE]

tan178 agradezco la intención pero no me sirve el proceso lo que necesito es:

Primero bajar el archivo de la web el link esta en B2 Y B3 y salvarlo en C:|

Segundo importar la imagen de c:| a la hoja de Excel

Gracias.