¿Cómo guardar imágenes como BMP en VBA?

Sub Demo()

Atenuar Sht como hoja de trabajo

Atenuar objCht como ChartObject

Atenuar Shp como forma

Dim RngAddress como cadena, FN como cadena, PN como cadena

Establecer Sht = ActiveWorkbook.ActiveSheet

RngAddress = "A1:G16"

PN = ActiveWorkbook .Path amp; "\Picture\"

FN = ActiveSheet.Range("J1") amp ".bmp"

Con Sht

.Range (RngAddress).CopyPicture Apariencia:=xlScreen, Formato:=xlBitmap

.Paste

Establecer Shp = .Shapes(.Shapes.Count)

Establecer objCht = ActiveSheet.ChartObjects.Add(0, 0, Shp.Width, Shp.Height)

Terminar con

Usar objCht. Gráfico

.Parent.Select

.Pegar

.Exportar ruta y PN amp;

Shp.Delete

objCht.Delete

End Sub