Você já tem código para importar um arquivo de imagem externo e importá-lo para um cabeçalho. Como você tem uma imagem incorporada , podemos exportá-la e usar o código que você tem. Digamos que temos:
Estecódigoirá:
- crieumobjetográficonaplanilha
- copieaimagemparaográfico
- exporteográficoparaumarquivoexterno
- elimineográfico
Ocódigo:
SubSaveTheBaby()DimchrtAsChart,MyPicAsShapeSetMyPic=ActiveSheet.Shapes(1)ActiveSheet.Shapes.AddChartSetchrt=ActiveSheet.ChartObjects(1).ChartMyPic.SelectMyPic.CopyActiveSheet.ChartObjects(1).ActivateActiveChart.Pastechrt.ExportFilename:="baby.jpg"
ActiveSheet.ChartObjects(1).Delete
End Sub