Como inserir uma imagem em uma célula usando VBA no Excel

Você pode inserir imagens facilmente em planilhas do Excel e editá-las com código de macro. Veja como inserir uma imagem em uma célula usando VBA no Excel .

Como inserir uma imagem em uma célula usando VBA no Excel

Visual Basic for Applications, abreviado como VBA, é uma forma de Visual Basic 6 integrada aos programas do Microsoft Office. Por meio da codificação, o VBA permite automatizar tarefas em aplicativos do Office, incluindo o Excel. Em alguns casos, você pode até adicionar novos recursos ao Excel usando VBA.

Mesmo que você precise trabalhar com código para usar o VBA, isso não significa que o VBA esteja cheio de letras e números. Com o VBA no Excel, você pode criar uma macro que permite inserir uma imagem em uma célula ou intervalo de células. Aqui está o que você precisa saber sobre como inserir imagens em células no Excel usando VBA.

Como inserir imagens em células usando VBA no Excel

Para criar uma macro que insere uma imagem em uma célula do Excel usando VBA, você realmente não precisa de nenhum conhecimento avançado de Visual Basic. Tudo que você precisa fazer é ativar as ferramentas do desenvolvedor, criar uma macro e colar o código apropriado. Claro, você também pode inserir imagens no Excel sem usar VBA. No entanto, neste artigo, focaremos no VBA.

1. Ative as ferramentas do desenvolvedor

Para usar VBA no Excel, você precisa habilitar as ferramentas do desenvolvedor. Esta ação habilitará a guia Desenvolvedor na faixa de opções, que está desabilitada por padrão.

  1. Abra o Excel .
  2. Vá para o menu Arquivo .
  3. Clique em Opções na parte inferior da tela. A janela Opções do Excel aparecerá.
  4. Nas Opções do Excel, vá para a guia Personalizar faixa de opções .
  5. Nas guias principais , marque Desenvolvedor .

Como inserir uma imagem em uma célula usando VBA no Excel

Agora as ferramentas do desenvolvedor, incluindo acesso VBA, estão habilitadas. Você não precisa fazer isso sempre que quiser usar o VBA no Excel. As ferramentas do desenvolvedor estarão sempre ativadas até que você as desative.

2. Crie macros e insira código

  1. No Excel, vá para a guia Desenvolvedor .
  2. Na seção Código, selecione Macros .
  3. Na nova janela, insira o nome da macro em Nome da macro . O artigo usará insertPhotoMacro .
  4. Clique em Criar .

Como inserir uma imagem em uma célula usando VBA no Excel

Após clicar em Criar, a janela do VBA será aberta e exibirá o código da sua macro. Atualmente, o código será composto por 2 linhas: uma Sub para iniciar a macro e uma End Sub para finalizá-la.

Como inserir uma imagem em uma célula usando VBA no Excel

Adicione um pouco de código a esta macro. Adicione a seguinte linha de código entre as duas linhas:

Dim photoNameAndPath As Variant
Dim photo As Picture
photoNameAndPath = Application.GetOpenFilename(Title:="Select Photo to Insert")
If photoNameAndPath = False Then Exit Sub
Set photo = ActiveSheet.Pictures.Insert(photoNameAndPath)
With photo
.Left = ActiveSheet.Range("A1").Left
.Top = ActiveSheet.Range("A1").Top
.Width = ActiveSheet.Range("A1").Width
.Height = ActiveSheet.Range("A1").Height
.Placement = 1
End With

O código final ficará assim:

Como inserir uma imagem em uma célula usando VBA no Excel

Você não precisa se preocupar em salvar esse processo. Quaisquer alterações feitas no VBA são salvas imediatamente.

Agora é hora de ver o código em ação:

  1. Feche a janela do VBA.
  2. Vá para a guia Desenvolvedor no Excel.
  3. Selecione Macros na seção Código.
  4. Destaque a macro que você acabou de criar.
  5. Clique em Executar .

Agora será aberta uma mensagem solicitando que você localize o arquivo de imagem que deseja inserir. Selecione a foto e clique em Abrir. Agora você verá a imagem na célula A1.

Observe que o Excel reduzirá a imagem para que caiba na célula A1. Você pode alterá-lo e alterar o código para inserir imagens em outras células, até mesmo em um intervalo de células. Na próxima seção, separaremos o código e explicaremos os parâmetros.

3. Dividir código

Para que o código VBA funcione da maneira desejada, você precisa entendê-lo. Ao fazer isso, você pode alterar o código para inserir imagens em qualquer célula de qualquer tamanho.

Sub insertPhotoMacro()
Dim photoNameAndPath As Variant
Dim photo As Picture
photoNameAndPath = Application.GetOpenFilename(Title:="Select Photo to Insert")
If photoNameAndPath = False Then Exit Sub
Set photo = ActiveSheet.Pictures.Insert(photoNameAndPath)
With photo
.Left = ActiveSheet.Range("A1").Left
.Top = ActiveSheet.Range("A1").Top
.Width = ActiveSheet.Range("A1").Width
.Height = ActiveSheet.Range("A1").Height
.Placement = 1
End With
End Sub

Quando o código começa, a instrução Dim é usada para determinar o tipo de variável. Temos dois tipos de variáveis: photoNameAndPath e photo . Primeiro a variável e depois a imagem.

A partir daí, a variável photoNameAndPath é executada e abrirá um aplicativo para obter a localização do arquivo da foto. Isso é feito por meio de Application.GetOpenFileName . O parâmetro Título é opcional. O conteúdo dentro dele é exibido como o nome da janela.

Usando If photoNameAndPath = False Then Exit Sub , se um endereço inválido ou vazio for fornecido, o processo será encerrado. No entanto, se um arquivo adequado for fornecido, Set photo = ActiveSheet.Pictures.Insert(photoNameAndPath) indica que a imagem deve ser definida como uma variável conforme definido originalmente. Ele será inserido na planilha ativa.

Por fim, use Com foto e as 5 linhas depois dela para determinar a localização da foto. .Left e .Top referem-se à posição inicial, enquanto .Width e .Height referem-se à posição final. Se você pretende inserir imagens em outra célula ou intervalo, estas são as linhas que você deve alterar.

.Placement indica que a imagem deve ser redimensionada para caber na célula ou inserida de forma livre. Configurá-lo como 1 irá redimensioná-lo de acordo com a célula.

Finalmente, o código acima usa End With e End Sub para fechar a macro. Agora você pode alterar as variáveis ​​photoNameAndPath e photo para qualquer outro nome que desejar. Apenas lembre-se de manter os nomes consistentes em todo o código.

Acima está como usar o VBA para inserir imagens em células do Excel . Espero que o artigo seja útil para você.

Sign up and earn $1000 a day ⋙

Leave a Comment

Instruções para definir apelidos para contas de amigos no TikTok

Instruções para definir apelidos para contas de amigos no TikTok

O TikTok tem a opção de definir um apelido para a conta de amigo para escolher um nome que seja mais fácil de lembrar na sua lista de amigos. O artigo abaixo orientará você a definir apelidos para as contas dos seus amigos no TikTok.

Guia para melhorar serviços e pesquisas no Edge

Guia para melhorar serviços e pesquisas no Edge

A melhoria de pesquisa e serviço é uma configuração do Microsoft Edge que permite que a empresa use seus dados de pesquisa na web para melhorar sua pesquisa e experiência na web.

Instruções para alterar a senha do Weibo no telefone ou computador

Instruções para alterar a senha do Weibo no telefone ou computador

As contas do Weibo também têm opções para editar a conta, como alterar a senha do Weibo. Abaixo estão as instruções para alterar sua senha do Weibo.

Como escrever um texto estiloso no Claude AI

Como escrever um texto estiloso no Claude AI

O Claude AI agora permite que você escolha entre uma variedade de estilos de escrita de texto para que os usuários obtenham o texto que precisam.

Como recuperar mensagens apagadas no iPhone, recuperar mensagens do iPhone mais rápido

Como recuperar mensagens apagadas no iPhone, recuperar mensagens do iPhone mais rápido

Existem várias maneiras de recuperar mensagens excluídas no iPhone: usando o iCloud, o iTunes e aplicativos de terceiros.

Instruções para recolher o conteúdo da nota no iOS 18

Instruções para recolher o conteúdo da nota no iOS 18

Para notas com muito conteúdo e muitos tópicos, a opção de recolher o conteúdo da nota no iOS 18 ajuda você a observar o conteúdo com mais facilidade.

Instruções para ler feedback no ChatGPT

Instruções para ler feedback no ChatGPT

Depois de oferecer suporte ao bate-papo por voz no ChatGPT, esta ferramenta de IA também atualizou a opção de ler respostas em vários idiomas suportados.

Instruções para fazer uma captura de tela de rolagem de um dispositivo Android para capturar a página da web inteira

Instruções para fazer uma captura de tela de rolagem de um dispositivo Android para capturar a página da web inteira

Em vez de “bombardear” as mensagens dos seus amigos com dezenas de capturas de tela, você pode fazer uma captura de tela e enviá-la.

Instruções para desativar a aceleração de hardware do Chrome para acelerar o seu computador

Instruções para desativar a aceleração de hardware do Chrome para acelerar o seu computador

O recurso de aceleração de hardware do Chrome ajuda a suavizar todas as operações no navegador. Se o Chrome não estiver funcionando corretamente, você pode desativar a Aceleração de Hardware.

Como corrigir o erro de AutoArquivar ausente no Outlook

Como corrigir o erro de AutoArquivar ausente no Outlook

A interface do Outlook dificulta o uso por muitas pessoas. Por exemplo, o recurso AutoArquivar não está disponível no Outlook. Aqui estão algumas maneiras de corrigir o erro de AutoArquivar ausente no Outlook.

Instruções para criar um modelo de casa de bonecas no ChatGPT

Instruções para criar um modelo de casa de bonecas no ChatGPT

O ChatGPT continua com a tendência de criar modelos de casas de bonecas, juntamente com o recentemente emergente modelo de caixa de brinquedos de IA. O modelo da casa de bonecas também é bastante semelhante à caixa de brinquedos da IA, modelando também a ocupação do sujeito.

Instruções para criar playlists de vídeos de anime no AnimeVsub

Instruções para criar playlists de vídeos de anime no AnimeVsub

AnimeVsub é um aplicativo popular para visualização de vídeos de anime. Abaixo estão as instruções para criar uma playlist de vídeos de anime no AnimeVsub.

Como usar Gemini corretamente na Pesquisa Google

Como usar Gemini corretamente na Pesquisa Google

O Gemini foi integrado ao aplicativo de Pesquisa do Google para que os usuários possam usá-lo imediatamente, pesquisando conteúdo mais aprofundado conforme desejarem.

Resumo dos eventos para receber skins grátis em Lien Quan 4/2025

Resumo dos eventos para receber skins grátis em Lien Quan 4/2025

Todo mês, a Lien Quan Mobile também lança diferentes eventos para ajudar os jogadores a receber conjuntos de skins legais totalmente grátis. Vamos explorar o evento gratuito sobre pele deste mês

Instruções para gerenciar listas de impressão no iPhone

Instruções para gerenciar listas de impressão no iPhone

Todos os documentos que são solicitados para impressão formam uma lista de impressão no seu iPhone para que você possa gerenciá-la.