VBA Excel - macro para guardar las imágenes de una hoja

VBA Excel - macro para guardar las imágenes de una hoja

   22 noviembre       Luis Reyes

---

 La semana pasada, un lector del blog me pregunto: ¿Cómo puedo guardar las imágenes de un hoja Excel? entonces me dado a la tarea de compartirles esta macro que nos va ayudar a guardar todas las imágenes que se encuentra en nuestra hoja

Sub GuardarImagenes()
Ruta = ThisWorkbook.Path & "\" ' Ruta donde se vana a guardar las imagenes
  For x = 1 To ActiveSheet.Shapes.Count
  Nom = "Imagen_" & x ' nombre de la imagen
      If ActiveSheet.Shapes(x).Type = 13 Then 'Solo imágenes
        ActiveSheet.Shapes(x).Select
        Selection.Copy
        ActiveSheet.ChartObjects.Add(1000, 1000, Selection.Width, Selection.Height).Select
        ActiveChart.Paste
        ActiveChart.Export Filename:=Ruta & Nom & ".jpeg", FilterName:="JPG" ' guardar en formato JPEG
        ActiveChart.Parent.Delete
      End If
  Next
  ActiveCell.Select
End Sub

Descarga el Archvio