Há várias maneiras de inserir uma imagem no Excel através de uma macro, mas uma das mais simples e eficazes é utilizar o método "AddPicture".
Segue abaixo um exemplo de código que faz isso:
Sub InserirImagem()Dim imagem As Stringimagem = "C:\MinhaPasta\MinhaImagem.png" 'caminho da imagem a ser inseridaWith ActiveSheet.Pictures.Insert(imagem) .Left = Range("A1").Left 'posição horizontal da imagem .Top = Range("A1").Top 'posição vertical da imagem .Width = 200 'largura da imagem .Height = 200 'altura da imagemEnd With End Sub
Nesse exemplo, eu defini que a imagem a ser inserida está na pasta "MinhaPasta" e tem o nome "MinhaImagem.png". Você deve substituir essa informação pela localização e nome da sua imagem.
Depois disso, defini que a posição da imagem será a mesma da célula A1, o que você também pode alterar de acordo com a sua necessidade.
Por fim, defini a largura e altura da imagem como 200, mas você pode ajustar esses valores conforme achar melhor.
Esse código deve funcionar bem para a maioria dos casos de inserção de imagens em Excel através de macro. Espero ter ajudado!