Saltar al contenido

Macro Para mostrar una imagen de Internet en un cuadro de imagenes


Recommended Posts

Buenas tardes espero que me puedan ayudar no se mucho de programación, y por eso solicito de su ayuda.

tengo una macro que al cambiar de celda en un rango especifico me muestra una imagen que esta en una carpeta de mi computadora, mediante un control de imagen, lo que necesito es saber como puedo hacer para que me muestre una imagen pero de Internet, esto es porque necesito que cualquier persona que quiera abrir el archivo, pueda ver las imágenes.

continuación colo el código que estoy usando

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Dir As String

On Error Resume Next

If Not Intersect(Target, Range("Q11:Q30")) Is Nothing Then

Dir = ActiveCell.Offset(0, 1).Value

If Dir = "" Then

Sheets("Mesas compartidas").Image1.Picture = Nothing

End If

Image1.Picture = LoadPicture("c:\Users\767MWP1\Dropbox\PRUEBA\ANA LAURA\" & Dir & ".jpg")

Else

Sheets("Mesas compartidas").Image1.Picture = Nothing

End If

End Sub

Gracias por su tiempo.

saludos

Enlace a comentario
Compartir con otras webs

Ya intentaste poniendo el url de la imagen? Por ejemplo cambia tu línea de código de la imagen por esto y me dices si funciona:

Image1.Picture = LoadPicture("http://images4.fanpop.com/image/photos/16100000/Rachel-3-rachel-bilson-16167044-1920-1200.jpg")

Enlace a comentario
Compartir con otras webs

Si ya lo intente asi y no funcionasimplemente no carga nada

Podrás subir tu archivo para hacer pruebas?

- - - - - Mensaje combinado - - - - -

Después de buscar y buscar encontré esto de parte de un programador de Microsoft:

LoadPicture only supports file system paths, not http urls. If the image isn't accessible via a file system path, then LoadPicture can't see it. If this is an intranet scenario, you might try keeping images on a public network share and use UNC path references.

--

Michael Harris

Microsoft.MVP.Scripting

Seattle WA US

En pocas palabras dice que ese comando no sirve para las imagenes desde internet, pero tampoco dice que exista alguno que lo haga hhmm

Enlace a comentario
Compartir con otras webs

Muchas gracias por tu ayuda y por el interés, pues necesito encontrar una manera de poder cargar esas imágenes espero que se pueda tal ves con un arreglo bajándolas a un archivo temporal y luego borrarlas no se algo así.

pero no tengo ni la mas mínima idea de como empezar.: Ambivalencia:: Ambivalencia:: Ambivalencia:: Ambivalencia:: Ambivalencia:: Ambivalencia:: Ambivalencia:: Ambivalencia:: Ambivalencia:: Ambivalencia:: Ambivalencia:: Ambivalencia:: Ambivalencia:: Ambivalencia:: Ambivalencia:: Ambivalencia:: Ambivalencia:: Ambivalencia:: Ambivalencia:: Ambivalencia:: Ambivalencia:: Ambivalencia:: Ambivalencia:: Ambivalencia:

- - - - - Mensaje combinado - - - - -

Gracias por tu tiempo y por tu interés, pues de alguna manera tengo que mostrarlas imágenes, quiza con un arreglo que baje las imágenes a un archivo temporal y las tome de ahí y después que las muestre las borre.

pero no tengo ni idea de como empezar

- - - - - Mensaje combinado - - - - -

Gracias por tu tiempo y por tu interés, pues de alguna manera tengo que mostrarlas imágenes, quiza con un arreglo que baje las imágenes a un archivo temporal y las tome de ahí y después que las muestre las borre.

pero no tengo ni idea de como empezar

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 93 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      177
    • Comentarios
      90
    • Revisiones
      27

  • Crear macros Excel

  • Mensajes

    • No va a ser necesario distinguir el tipo de proceso entre 1 y 2. Revisa el adjunto a ver si es eso lo que quieres. Function MediaAttention(mImp As Range, _ q25 As Range, q50 As Range, _ Optional q75 As Range, _ Optional q100 As Range) As Double '-- Opción 1 If q75 Is Nothing And q100 Is Nothing Then MediaAttention = q25 / q50 Exit Function End If '-- Opción 2 MediaAttention = ((0.25 * (q25 - q50)) / mImp) + _ ((0.5 * (q50 - q75)) / mImp) + _ ((0.75 * (q75 - q100)) / mImp) + _ (q100 / mImp) End Function   Media Attention Formula 1.2.xlsb
    • Gracias tomarse el tiempo de leer por responder Maestro @Antoni Adjunto el archivo con la idea a la que deseo llegar, sigo atento. Mil gracias por el tiempo y la ayuda brindada   Media Attention Formula 1.2.xlsb
    • He analizado la UDF y entiendo perfectamente lo que hace, lo que no entiendo es lo que pretendes hacer. Mejor sube un ejemplo resuelto de  como debería funcionar la UDF con los nuevos parámetros solicitados. 
    • Gracias, ya lo conseguí solucionar
    • Hola a todos Primero que nada deseo agradecer el tiempo en leer este post, Muchas Gracias. Me acerco a ustedes para pedir su ayuda para lo siguiente: Tengo una UDF, la cual tiene dos escenarios: 1.- Si Tiempo Promedio y Duración del Video son diferentes de 0, hacer el calculo 2.- Si lo anterior es igual a 0, se realiza el otro calculo por cuartiles. El detalle es que son muchas celdas a seleccionar, lo cual creo puede ser engorroso, entonces, pensando en simplificar la función, me pregunte si fuera posible: a.- Colocar 1 al principio de la función y después solo seleccionar 2 celdas correspondientes (Rango continuo o discontinuo) b.- Colocar 2 al principio de la función y después seleccionar las 5 celdas correspondientes (Rango continuo o discontinuo) Espero me puedan ayudar y/o orientar al respecto, quedo atento para cualquier duda, de antemano les agradezco cualquier ayuda brindada. Mil Gracias!! Media Attention Formula 1.1.xlsb  
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.