Jump to content

Macro guardar imagen desde un hipervinculo en una celda(Para MAC)


Recommended Posts

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.

 

Agradezco en lo que me puedan colaborar

Extraer img de celda.xlsm

Edited by heric
Link to post
Share on other sites

Hola

La función URLDownloadToFile forma parte de la API de Windows y hace referencia a la librería urlmon.dll que es justamente de Windows, así que, si bien no uso ni he usado MAC, tengo mis dudas sobre si se encuentra presente en los sistemas operativos que usa y por ende el código no funciona al intentar usar una característica que no existe para MAC.

Ojalá alguien que use MAC complemente mi respuesta, pero incluso creo que el tratamiento de las API de MAC era distinto (al menos hasta Excel 2011), pero ya no es posible (me parece) en Excel 2016. Lee por aquí: Enlace

 

 

Link to post
Share on other sites
Hace 20 horas, heric dijo:

Ok, gracias por la informacion...te consulto si existirá otra función diferente que permita realizar dicha acción que no tenga que llamar a URLDownloadToFile?

Como te digo, al no haber usado ni usar MAC, yo no conozco dicho entorno como para sugerir algo. Esperemos que algún usuario de dichas máquinas pueda ayudarte.

Link to post
Share on other sites
En 27/11/2019 at 23:11 , heric dijo:

existirá otra función diferente que permita realizar dicha acción que no tenga que llamar a URLDownloadToFile?

para "mac specific", mira por aquí:

Download a File through Safari with AppleScript

Can AppleScript be used to downloading files from a web page?

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


  • Posts

    • hola,estoy buscando que un numero que tengo en la hoja "nota pedido" ,lo busque en varias hojas y que ponga en la hoja "nota pedido" otros datos de columnas segun el numero buscado;probe con buscarv, buscarvmultiple,y si,error pero hasta ahora el unico que me sirvio hasta cierta fila es el =BUSCARVMultiple($A2;$A$11:$B$63;2;FALSO),pero llega una linea en que me da error;a alguien se le ocurre??desde ya gracias por vuestra colaboracion anticipadamente   caja 2020 ok original2.xls
    • Buenas. En un rango de celdas (en este caso C2:C12), me da el resultado de busquedas. También lo tengo condicionado a que el relleno de la celda de color cambie. Lo que necesito es que si alguna celda del rango cambiara el color de relleno, me saltara un msgbox como advertencia, indicandome que se ha producido un cambio de color y un boton para aceptar la advertencia. En el ejemplo adjunto, he dejado las macros que contiene la hoja hasta ahora. Muchas gracias. AVISOS1.xlsm
    • Hola de Nuevo. Muchas gracias. Siguiendo tu guía consegí que que se consiguiera el punto 1. Lamentablemente cuando intento pasarlo al archivo que estoy creando, no lo consigo. Cualquier celda que seleccione, se duplique o no, el resultado me salta el aviso. Y no logro encontrar que hago mal. Creo que hubiese sido más fácil pedir que dentro de un Rango, cuando la celda cambie de color que saltarara un aviso. Lo pedire en otro hilo. Agradezco mucho tu tiempo y paciencia. Te subo el archivo con las dos cosas que pedía. Avisos4Bis.xlsm
    • Muy buenos días, por favor consulto si alguien puede compartirme un dashboard que use para informe proyecto construcción. Mil gracias🙏🏻
    • Hola Haplox, siempre serian del mismo rango y la misma hoja, la idea es que me guarde con el nombre del registro que selecciona.
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy