Para inserir uma imagem no Excel através de uma macro, siga os seguintes passos:
Sub InserirImagem() Dim caminho As String Dim largura As Double, altura As Double
caminho = Application.GetOpenFilename("Imagens (.gif;.jpg;.jpeg;.bmp;.tif;.png),.gif;.jpg;.jpeg;.bmp;.tif;.png", , "Selecione a imagem")
If caminho <> False Then largura = 200 'altere a largura da imagem conforme sua preferĂŞncia altura = 200 'altere a altura da imagem conforme sua preferĂŞncia ActiveSheet.Shapes.AddPicture caminho, False, True, 0, 0, largura, altura End If End Sub
Ao executar a macro, será aberta uma janela para selecionar a imagem que será inserida na planilha. É importante apenas selecionar imagens compatĂveis com o Excel, como .jpg, .gif, .tif, .bmp e .png. ApĂłs selecionar a imagem, a macro irá inseri-la na planilha e vocĂŞ poderá personalizar a largura e altura da imagem conforme sua preferĂŞncia.