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 ⋙

Como descobrir quem deixou de te seguir no Instagram

Como descobrir quem deixou de te seguir no Instagram

Mesmo que o Instagram notifique você sempre que outro usuário segue você, você não saberá se alguém deixou de segui-lo, a menos que verifique seu perfil. Enquanto

Como entrar em contato com o atendimento ao cliente da Amazon

Como entrar em contato com o atendimento ao cliente da Amazon

Você precisa de ajuda com um problema relacionado à Amazon e não sabe com quem entrar em contato? Descubra todas as maneiras de entrar em contato com o Suporte ao Cliente Amazon.

Como adicionar novo usuário no HubSpot

Como adicionar novo usuário no HubSpot

Se você está iniciando ou expandindo um negócio, precisa de uma maneira eficaz de gerenciar diferentes equipes e departamentos, compartilhar informações, gerenciar o fluxo de trabalho e

Como saber quando alguém foi visto pela última vez no Snapchat

Como saber quando alguém foi visto pela última vez no Snapchat

O Snapchat se orgulha de ser a plataforma de mídia social mais honesta que existe. Ele oferece recursos e informações que a maioria dos aplicativos sociais não oferece, como quem

Como encontrar amigos excluídos no Snapchat

Como encontrar amigos excluídos no Snapchat

Se alguém está incomodando você no Snapchat ou você acha as fotos desinteressantes, uma opção que você tem além de bloqueá-lo é removê-lo do seu

Snapchat: como ver quem bloqueou você

Snapchat: como ver quem bloqueou você

Se você usa muito o Snapchat, pode ter se deparado com um usuário que fez algo que te irritou ou chateou. Infelizmente, esta é uma ocorrência comum nas redes sociais. Mas

Como desligar o envelhecimento no Sims 4

Como desligar o envelhecimento no Sims 4

Como no mundo real, suas criações no Sims 4 acabarão envelhecendo e morrendo. Os Sims envelhecem naturalmente em sete fases da vida: Bebê, Criança Pequena, Criança, Adolescente,

Como adicionar uma página no Notability

Como adicionar uma página no Notability

Se você é um usuário do Notability, sua conveniência para fazer anotações e organizar seus pensamentos provavelmente não passou despercebida. E embora as notas básicas sejam úteis em

Formulários Google: como receber notificações por e-mail

Formulários Google: como receber notificações por e-mail

O Formulários Google oferece um método conveniente de coleta de informações e opiniões por meio da realização de pesquisas, inscrição em eventos e formulários de feedback. Esse

Microsoft Edge: como configurar e usar espaços de trabalho

Microsoft Edge: como configurar e usar espaços de trabalho

Microsoft Edge Workspaces é um recurso focado em colaboração disponível no Windows e macOS. Você pode criar um espaço de trabalho e abrir todos os arquivos necessários

Como ver quando uma conta do Instagram foi criada – sua ou de outra pessoa

Como ver quando uma conta do Instagram foi criada – sua ou de outra pessoa

A plataforma de mídia social Instagram percorreu um longo caminho desde seu início em 2010 e sua aquisição pelo Facebook em 2012, e algumas pessoas têm atuado

Como agendar o envio de uma mensagem de texto no IMessage

Como agendar o envio de uma mensagem de texto no IMessage

Você já acordou no meio da noite e lembrou que precisava mandar uma mensagem para alguém pela manhã? Isso acontece com todo mundo. Enquanto a maioria

Minecraft Java: como instalar o mod ‘From The Fog’

Minecraft Java: como instalar o mod ‘From The Fog’

Se você está cansado de dominar o mundo do Minecraft: Java Edition, você pode trazer uma nova vida ao jogo adicionando mods e pacotes de dados, incluindo

Como consertar o Discord mostrando tela preta durante a transmissão

Como consertar o Discord mostrando tela preta durante a transmissão

Descubra como corrigir a falha da tela preta ao transmitir no Discord com estas dicas de solução de problemas para voltar a compartilhar seu conteúdo.

Como corrigir o erro Não é possível enviar mensagens no Telegram

Como corrigir o erro Não é possível enviar mensagens no Telegram

Descubra por que você não consegue enviar mensagens no Telegram e aprenda soluções fáceis para o problema, garantindo que você possa manter contato com seus contatos.

Como desinstalar e reinstalar o Chrome

Como desinstalar e reinstalar o Chrome

https://www.youtube.com/watch?v=g4e-Vxt3Cr0 O Google Chrome é um dos navegadores mais populares por um bom motivo. Está disponível em todos os dispositivos móveis e

Como mesclar guias no Planilhas Google

Como mesclar guias no Planilhas Google

As planilhas podem conter informações valiosas, como registros de vendas, dados contábeis, informações de contato, etc.

Instruções para criar tendência de fase da lua

Instruções para criar tendência de fase da lua

Instruções para criar uma tendência de fases da Lua. A tendência da Lua é extremamente popular no TikTok, criando uma febre sem precedentes. Através da fase da Lua irá ajudá-lo a saber a data

Como editar vídeos postados no YouTube sem perder visualizações

Como editar vídeos postados no YouTube sem perder visualizações

Como editar vídeos postados no YouTube sem perder visualizações, Você se esqueceu de desfocar o conteúdo sensível nos vídeos postados no YouTube. Não se preocupe, veja como ajustá-lo

Como ativar o modo escuro no TikTok

Como ativar o modo escuro no TikTok

Como ativar o modo escuro no TikTok, Como ativar o modo escuro no TikTok não é difícil. O artigo irá guiá-lo detalhadamente como alterar a interface do TikTok para preto no Samsung