Perdida de imagenes en excel con macro

06/05/2012 - 09:47 por eddyhdez99 | Informe spam
¡ Hola !
Hola a todos, les explico mi problema, hice una macro la cual inserta imágenes a mis celdas y funciona bien, el problema es cuando guardo el archivo y lo comparto, las otras personas no pueden ver las imágenes y donde debería ir la imagen dice lo siguiente: "No se puede mostrar la imagen vinculada. Puede que se haya movido, cambiado de nombre o eliminado el archivo". ¿hay manera de guardar mi archivo de excel y las imágenes dentro de ese mismo archivo sin que tenga que leer las imágenes de una carpeta ?

Nota: Me di cuenta que si inserto la misma imagen pero sin utilizar la macro (Con las opciones normales de Excel Insertar-Imagen) aunque borre el archivo de imagen o lo cambie de ubicación, el archivo de excel sigue conservando la imagen.
incluso intente grabar este método en una macro y la ejecute para ver si de esta forma no pierde el archivo. y sigue perdiéndolo. osea que solo con la macro pierde las imágenes o las necesita en una carpeta.


Este es el código que utilizo para insertar la imagen.
Sub Macro1()

ActiveSheet.Pictures.Insert("C:\carpeta\foto.jpg").Select

End Sub
 

Leer las respuestas

#1 dave
12/09/2012 - 00:01 | Informe spam
eddyhdez99 escribió el 06/05/2012 09:47 :
¡ Hola !
Hola a todos, les explico mi problema, hice una macro la cual inserta
imágenes a mis celdas y funciona bien, el problema es cuando guardo el
archivo y lo comparto, las otras personas no pueden ver las imágenes y
donde debería ir la imagen dice lo siguiente: "No se puede mostrar
la imagen vinculada. Puede que se haya movido, cambiado de nombre o eliminado
el archivo". ¿hay manera de guardar mi archivo de excel y las
imágenes dentro de ese mismo archivo sin que tenga que leer las
imágenes de una carpeta ?

Nota: Me di cuenta que si inserto la misma imagen pero sin utilizar la macro
(Con las opciones normales de Excel Insertar-Imagen) aunque borre el archivo de
imagen o lo cambie de ubicación, el archivo de excel sigue conservando
la imagen.
incluso intente grabar este método en una macro y la ejecute para ver si
de esta forma no pierde el archivo. y sigue perdiéndolo. osea que solo
con la macro pierde las imágenes o las necesita en una carpeta.


Este es el código que utilizo para insertar la imagen.
Sub Macro1()

ActiveSheet.Pictures.Insert("C:carpetafoto.jpg").Select

End Sub


Prueba de esta forma, ThisWorkbook.Path & "\Fotos\" & Imagen & ".jpg", deberás tener en la misma carpeta tu archivo de excell y una carpeta que se llame Fotos donde tendrás tus Imagenes, con esto no buscará la ruta C:\ como lo pones en tu ejemplo y te genere error en otros equipos, sino buscara la ruta en donde se encuentra el archivo de excell.

NOTA. en el código que muestro es solo para imágenes JPG, la palabra Imagen es una variable.

Espero sea tu solución.

Preguntas similares