RE:Mostrar imagen desde FTP en un form en VBA
Bueno ya lo solucione asique aca les dejo el codigo de lo que hice si a algiuen le interesa.
Creamos Un modulo y adentro ponemos este codigo.
Declare Function shellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
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
Sub Descargar(Url As String)
Call URLDownloadToFile(0, Url, "C:imagen.gif", 0, 0)
End Sub
Public Sub launchBrowser(Url As String)
shellExecute 0, vbNullString, Url, vbNullString, vbNullString, 5
End Sub
'esta Subrutica descarga el archivo de la URL, lo carga en el objeto Image1, lo borra del disco con Kill, y luego muestra el form
Public Sub NombreDelMacros()
Call Descargar("http://URLdescarga/archivo.gif")
fComp.Image1.Picture = LoadPicture("C:imagen.gif")
Kill ("C:imagen.gif")
form.Show
End Sub
despues en el Form ponemos un objeto Image, y este codigo en el evento Click
Private Sub Image1_Click()
launchBrowser ("URLdestino")
End Sub
**** Con esto ejecutamos, nos carga en el Image la imagen que tenemos en http://URLdescarga/archivo.gif y cuando hacemos click en la imagen nos abre el browser por defecto y nos direcciona a "URLdestino". Espero esto le sirva a alguien. Saludos. BIOK <<-_->>