Guardar imágenes con nombre de celda
Hola buen día, lo que deseo hacer es guardar 612 imágenes y que cada imagen se guarde con el nombre que esta en una celda, encontré este código en el foro adaptándolo a mis necesidades:
Sub ejemplo()
With Selection
.CopyPicture
End With
ActiveSheet.Shapes.AddChart
ActiveSheet.ChartObjects(1).Select
With Selection
.Chart.Paste
.Chart.Export "C:\Documents and Settings\Compaq_Propietario\Escritorio\" & Range("B5").Value & ".JPEG"
.Delete
End With
End Sub
En el que si lo hace pero tengo que ir imagen por imagen y es algo tedioso, hacerlo 612 veces, mi duda es si hay forma de crear un bucle de modo que en al ejecutar la macro vaya guardando cada imagen con el nombre de cada celda, ejemplo imagen 1, se guarda con el nombre de celda A1, imagen 2, se guarda con el nombre de celda A2, imagen 3, se guarda con el nombre de celda A3, si necesitan el archivo, se los paso
Gracias de antemano
1 respuesta
Prueba la siguiente:
Sub ejemplo()
'Por.DAM
f = 1
For Each img In ActiveSheet.DrawingObjects
img.CopyPicture
ActiveSheet.Shapes.AddChart
ActiveSheet.ChartObjects(1).Select
With Selection
.Chart.Paste
.Chart.Export "C:\" & Range("B" & f).Value & ".JPEG"
.Delete
End With
f = f + 1
Next
End Sub
Saludos. Dante Amor
Si es lo que necesitas.
Hola experto, gracias por el aporte, te comento lo que sucedió, si lo guardo aunque me marco un limite de 255 valores, con eso no tuve problema lo hice por partes, hasta llegar a los 612 imágenes, el verdadero problema fue que algunas imágenes las revolvió y no coinciden con su descripción, de hecho hice un ejemplo rapido con solo 10 imágenes y solo 3 si están bien las demás no, sabrás porque o tendré que hacerlo manual?, si necesitas un ejemplo, me avisas
Saludos
Envíame tu archivo con 10 imágenes y me dices qué imagen va con qué nombre, solamente el ejemplo, para poner en la macro cómo debe identifica cuál imagen pertenece a cuál celda.
