Guardar una foto que visualizo en Excel mediante VBA

[fagoncis]

Hola a tod@s:

Necesito averiguar como puedo guardar en el disco duro una imagen que visualizo con la ayuda de VBA desde internet. La imagen la visualizo con la instrucción siguiente:

Set FOTO = ActiveSheet.Pictures.Insert(RUTA)
ARR = 148
izq = 85
ANC = 80
ALT = 60
MARGEN = 248
With Range("A1")
Arriba = ARR
Izquierda = MARGEN
Ancho = ANC
Alto = ALT
End With
With FOTO
.Name = "FOTO"
.Top = Arriba
.Left = MARGEN
.Width = Ancho
.Height = Alto
End With

¿Como hago para guardarla en una carpeta llamada "Imagenes" por ejemplo? Imagino que se debe poder porque la foto ya está en mi hoja de calculo, pero desconozco el comando que me permitiria guardarla en C:

(RUTA es una ruta de otro servidor desde internet)

No domino mucho el tema de VBA y lo poquito que encuentro es rebuscando por los foros y volviendoos locos a todos.

Gracias y un saludo.

[David]

¿De dónde extraes la foto?. Según tengo entendido es de Internet, pues bien, con la API puedes bajar archivos de internet, quizás puede serte útil.

[fagoncis]

Iniciado por David el Grande

¿De dónde extraes la foto?. Según tengo entendido es de Internet, pues bien, con la API puedes bajar archivos de internet, quizás puede serte útil.

¿como sería? es que no me aclaro con lo que encuentro.

[David]

Así puedes hacerlo:

Código:

 
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

Código:

 
Dim Reply As Long
Reply = URLDownloadToFile(0, "http://dirección", "C:\archivo_destino", 0, 0)
If Reply = 0 Then
    'Descargado
Else
    'Error al descargar
End If

[fagoncis]

YA LO CONSEGUÍIIIIIIIIIIIIIIIIIIIII!!!!!!!!!!!!!!!!!!!!! !!!!

Al principio no sabia como se colocaba cada linea de código que me has dado, pues las ponia todas juntas, pero revolviendo internet lo descubrí.


Muxas, Muxas, Muxas, Muxas, Muxas, Muxas, Muxas, Muxas,..... gracias