VBA: Exportar una imagen desde Excel.

En un reciente comentario, un lector preguntaba por la forma de guardar o exportar una imagen insertada previamente en nuestra Hoja de cálculo de Excel hacia un archivo en nuestro equipo.
El asunto no es sencillo de aplicar, ya que no existe una instrucción directa que permita guardar o exportar de alguna manera una imagen a un archivo en nuestro PC; sin embargo, una solución válida consiste en incluir nuestras imágenes a exportar dentro de un objeto Gráfico; puesto que estos objetos si son exportables fácilmente con la instrucción chart.Export.

Insertaremos en un módulo del Explorador de proyectos del Editor de VBA el siguiente código, formando nuestra macro de Excel:

Sub ExportarImagen()
Dim img As Shape

Application.ScreenUpdating = False
For Each img In ActiveSheet.Shapes
'añadimos un gráfico
Charts.Add
'lo situamos como objeto en la Hoja 3
ActiveChart.Location Where:=xlLocationAsObject, Name:="Hoja1"
Set chrt = ActiveSheet.ChartObjects(1)

    nombreimg = img.Name
    'adaptamos tamaño de imagen y gráfico
    With img
    chrt.Width = .Width
    chrt.Height = .Height
    'copiamos la imagen
    .Copy
    End With
    'pegamos dentro del gráfico la imegen
    ActiveChart.Paste
    'exportamos el gráfico con el nombre del objeto (imagen)
    chrt.Chart.Export Filename:="C:\" & nombreimg & ".gif"
chrt.Delete
Next img

Application.ScreenUpdating = True
End Sub

Observamos que la macro recorre todas las formas/objetos de la hoja de Excel activa, y para cada imagen creamos un nuevo gráfico que inmediatamente localizamos como objeto (no como Nueva Hoja), para inmediatamente adecuar el tamaño del gráfico al de la imagen; finalmente copiamos la imagen y la pegamos en el gráfico activo recién creado.
Sólo nos queda seleccionar este gráfico y exportarlo con el nombre que tuviera definida la imagen. Para terminar eliminamos el gráfico y no dejar rastro del trabajo que hemos realizado.