Inserir Imagem no Excel Via Macro

Para inserir uma imagem no Excel através de uma macro, siga os seguintes passos:

1. Abra a planilha na qual deseja inserir a imagem.
2. Pressione a combinação de teclas "Alt + F11" para abrir o Editor do Visual Basic.
3. Na janela do Editor, clique em "Inserir" > "Módulo" para criar um novo módulo.
4. Dentro do novo módulo, cole o seguinte código:

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

5. Salve e feche o Editor do Visual Basic.
6. Volte para a planilha e clique no botão "Desenvolvedor" na faixa de opções. Se o botão "Desenvolvedor" não estiver visível, vá em "Arquivo" > "Opções" > "Personalizar Faixa de Opções" e marque a opção "Desenvolvedor".
7. Clique no botão "Macros" no grupo "Código" da guia "Desenvolvedor".
8. Selecione a macro "InserirImagem" e clique em "Executar".
9. Selecione a imagem que deseja inserir na planilha.
10. Personalize a largura e altura da imagem conforme sua preferência.

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.