Guardar imagen con una macro.

Te mando mi solución con esta macro:

Después de que tengas pegada la imagen en excel ejecuta esta macro:

Sub ejemplo()
'por luismondelo
ActiveSheet.Shapes.AddChart
ActiveSheet.Shapes(1).Select
With Selection
.CopyPicture
End With
ActiveSheet.ChartObjects(1).Select
With Selection
.Chart.Paste
.Chart.Export "C:\Users\Luis\Documents\curso de excel\destino\jjjj.gif"
.Delete
End With
End Sub

recuerda finalizar

Evidentemente en la macro tienes que cambiar el path de destino donde guardas la imagen y el nombre que yo le he puesto jjjj.gif. Pero como tú querías el nombre que está escrito en la celda A31 esa línea de la macro quedaría así:

(Recuerda que tienes que cambiar el path de destino el mio ha sido este:

C:\Users\Luis\Documents\curso de excel\destino\

.Chart.Export "C:\Users\Luis\Documents\curso de excel\destino\" & range("a31").value & ".gif"

recuerda finalizar

Perdona luis, se me ha olvidado decirte, que la macro es la macro5

gracias

Hola luis.

ante todo muchísimas gracias por dedicarme tu tiempo y ofrecerme tus conocimientos.

he copiado el código que me das, he cambiado la dirección donde guarda la imagen.

pero me guarda una imagen en blanco, que no tiene que ver con la realidad.

es muy extraño, en principio pensaba que tendría que estar seleccionada la imagen, pero tampoco me sale.

te mando un enlace de la hoja y un .doc con tres imágenes. las dos primeras, son las imágenes que quiero guardar.

y la tercera lo que me guarda.

https://www.dropbox.com/s/konne6asr8sf4j8/hoja%20y%20doc.rar?m

en la hoja hay dos imágenes, la idea que al final quiero conseguir es que al pinchar a cada una de las imágenes me las guarde. pero eso sera sencillo, con asignarle la macro a la imagen,

gracias- buenas noches