Macro guardar imagen desde un hipervinculo en una celda(Para MAC)
publicado
Hola tenemos una macro que nos permite guardar la imagen de una URL ubicada en una celda en el la carpeta donde se encuentra el archivo...funciona perfecto en windows.
Pero necesito que funcione en un equipo MAC...cuando ejecuto la macro me resalta las siguientes lineas
DownloadFile = URLDownloadToFile(0&, _
sSourceURL, _
sLocalFile, _
BINDF_GETNEWESTVERSION, _
0&) = ERROR_SUCCESS
End Function
y este es el codigo donde guarda la imagen
Sub GuardarImagen(URL As String, Nombre As String)
Dim sURL As String
Dim sLocalFile As String
Dim sDestination As String
Dim sText As String
Dim PPTShape
sText = URL
sURL = sText
sLocalFile = ThisWorkbook.Path & "\" & Nombre & ".jpg"
DownloadFile sURL, sLocalFile
End Sub
Ya le cambie en sLocalFile "\" por ":" pero nada igual me resalta esas lineas.
Hola tenemos una macro que nos permite guardar la imagen de una URL ubicada en una celda en el la carpeta donde se encuentra el archivo...funciona perfecto en windows.
Pero necesito que funcione en un equipo MAC...cuando ejecuto la macro me resalta las siguientes lineas
y este es el codigo donde guarda la imagen
Ya le cambie en sLocalFile "\" por ":" pero nada igual me resalta esas lineas.
Agradezco en lo que me puedan colaborar
Extraer img de celda.xlsm