Inserir imagem no cabeçalho com VBA da imagem localizada na pasta de trabalho

Question

Estava usando isso, mas ficou rapidamente aparente hoje que esperar que a imagem permaneça no mesmo diretório o tempo todo não é um bom plano.

With ActiveSheet.PageSetup.LeftHeaderPicture
    .filename = ThisWorkbook.path + "\pic.jpg"
    .Height = 275.25
    .Width = 195
End With

Enquanto a imagem nunca muda, o texto no cabeçalho é alterado diariamente, portanto, isso precisa ser gerado automaticamente, daí a necessidade de inseri-lo com o VBA, pois estou colocando a imagem no cabeçalho, bem como outro texto toda vez que o relevante alterações de dados.

    

Answer 1

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