Cadastro VBA com Imagem

Planilha Excel de cálculo do IMC
Planilha Excel de cálculo do IMC
13 de outubro de 2011
Criar catálogo de imagens no Excel - VBA
Criar catálogo de imagens no Excel – VBA
25 de outubro de 2011

Objetivo: Disponibilizar um cadastro VBA com imagem.


A ideia deste cadastro de exemplo é realizar a seleção de arquivos de imagem e ligá-los ao registro atual.

Para testar, clique no botão editar e sobre o campo destinado a figura, selecionar imagens do tipo BMP ou ICO, depois clique em salvar.

O código abrirá uma janela de busca das imagens, e ao salvar, o sistema irá salvar o local aonde está a imagem, logo a pasta não deverá mudar de local, senão as imagens não serão mais localizadas.

Esta é a parte do código que faz a busca da imagem, ao você clicar sobre o campo destinado a imagem.

frmCadastroStudents.Image1.Picture = LoadPicture(Worksheets("Clientes").Cells.Range("M" & lLinha).Value)

Abraço

Marcos Rieper


Clique aqui e leia mais sobre Excel VBA. https://www.guiadoexcel.com.br/vba/ O Guia do Excel foi criado por Marcos Rieper e oferece artigos, dicas, tutoriais e modelos de planilhas prontas. Aqui você encontra tudo sobre Excel, seja de nível básico, intermediário,  avançado e VBA. O Guia do Excel oferece diversos materiais completamente gratuitos para download. Navegue em nosso site e confira! Conheça também a nossa Loja do Excel https://loja.guiadoexcel.com.br/
Cursos

Curso Excel Completo – Curso Excel Básico + Curso Excel Avançado – Acesso Vitalício

R$218,00 R$179,00

COMPRAR
Cursos

Curso Excel Master – Curso Excel Básico + Curso Excel Avançado + Curso VBA Excel + LP – Acesso Vitalício

R$357,00 R$249,00

COMPRAR
Cursos

Curso Excel PRO – Curso Excel Avançado + Curso VBA Excel + Lógica de programação – Acesso Vitalício

R$258,00 R$199,00

COMPRAR
Cursos

Curso Excel Web – Curso VBA Excel + Lógica de programação + Curso Web Scraping VBA- Acesso Vitalício

R$388,90 R$309,00

COMPRAR

49 Comentários

  1. Lucas Bernardes da Silva disse:

    Aeeeeeeeeeeeeeeeeeeeeeeeee 😀

    Muito obrigado marcos !!

  2. RaphaelNNoé disse:

    Ótimo material. Parabéns!!!

  3. Aline disse:

    Eu tenho um doc do excel, onde existem 12 planilhas, com os meses do ano, e nessas planilhas tem valores correspondentes a datas, e tem uma 13ª planilha na qual eu quero que tenha um total de todas. Por isso eu preciso de uma função que possua as seguintes informações:

    ****Ex: Nas 12 planilhas nas células k11 a k932 existem datas e nas células L11 a L932 existem valores…..eu quero que na última planilha (total) tenha uma função que encontre todos os valores da L11:L932 que possua uma determinada data da k11:k932 (1/8/2011) de todas as 12 planilhas e que as somem (somar..rs)

    Eu sei uma função que encontra na planilha onde ela se encontra que seria assim:…=SOMASE(K11:K932;”1/8/2011″;L11:L932

  4. Fretson Lopes disse:

    Ola,
    Olha nesta 13 panilha tenta colocar os dados um encima do outro conforme os meses, abres uma coluna onde descriminas o nome do mes, e fazes uma tabela dinamica atraves daí. Assim consegues ver o total dos dados e consegues manipula-los como quiseres.
    Para juntar os dados tenta com Microsoft Query no excel

  5. gonçalo pereirra disse:

    bem eu tava precisando de fazer a mesma coisa mas numa planilha ja criada por mim vc me ajuda ‘?

  6. Luiz disse:

    Parabéns Marcos, esta idéia é show.

    Apartir de qual linha posso inserir este código acima?

    Obrigado.

  7. Luiz disse:

    Parabéns marcos, desconsidere a pergunta acima,
    Quando habilito os macros, dá erro de código em uma das linhas, aí pede pra depurar.
    Clico em depurar e ele pinta a linha de amarelo.
    Podes me ajudar com este erro?
    frmCadastroStudents.Image1.Picture = LoadPicture(Worksheets(“Clientes”).Cells.Range(“M” & lLinha).Value)

  8. S3R3P disse:

    Luiz, o problema está na referência da imagem (Célular M2 e M3 da planilha Clientes).
    Está indicando uma imagem em D:\.
    A solução é remover esta referência.

  9. manoel disse:

    (corrigir formula) frmCadastroStudents.Image1.Picture = LoadPicture(Worksheets(“Clientes”).Cells.Range(“M” & lLinha).Value)

    • Marcos Rieper disse:

      Bom dia Manoel,

      Obrigado pela correção, vou verificar e alterar o formulário.

      Abraço

      Marcos Rieper

    • Marcos Rieper disse:

      Bom dia Manoel,

      Na coluna M da planilha Clientes tem que alterar o local aonde estão as imagens.

      No caso as minhas estavam em D:\Blog Guia do Excel\Formulário com imagem\disneyBMP.bmp e portanto você deve alterar para o local aonde estão as suas imagens antes de executar o formulário.

      Abraço

      Marcos Rieper

  10. Caro Marcos,
    Muito bom este Formulário q vc publicou.
    Eu gostei tanto que o reutilizei adaptando no lugar de um outro Form que eu estava tentando utilizar, do Tomaz Vasques, que não possuía foto. Mas eu estou com um novo problema, no outro Form eu tinha o botão de pesquisa, onde eu fazia consultas em alguns campos para localizar determinado cadastro e neste seu modelo não o possui. Eu tentei trazer o código de pesquisa do outro Form mas como sou completo iniciante em VBA não entendi nada do erro que deu.
    E tem mais, como faço para colocar os dados do cadastro em uma ficha para impressão?
    Será que você poderia me ajudar com estas questões?
    Abraço.

    Márcio R. Prado

  11. Fabiano disse:

    O formulario é muito bom porem eu precisava colocar o código manualmente eu digirando será que tem essa possibilidade alguem pode me ajudar?

  12. weslei disse:

    Muito bom.

    Seria possivel acrescer uma busca por codigo do cliente?

    Obrigado.

  13. Nélio Borges disse:

    Olá manoel, bom dia,
    Tenho uma planilha do excel que atualiza pela internet preços de 3 em 3 meses, porém todas as vezes que que tenho que atualizar os preços preciso mudar nos DADOS/PROPRIEDADE DA CONSULTA/DEFINIÇÃO/EDITAR CONSULTA, e trocar o final da consulta, exemplo: como é de 3 em 3 meses a consulta anterior esta gravada assim: http://200.144.30.103/tpu-internet/ImprimirTPU.asp?Data=31122011&Fase=21, com a atualização do mês de dezembro/2011, e tenho que digitar assim:http://200.144.30.103/tpu-internet/ImprimirTPU.asp?Data=31032012&Fase=21, para atualizar dados para o mês de março/2012; nota: são treze atualizações para a mesma planilha.
    Como posso automatizar esta consulta?, pois pretendo disponibilizá-la no meu blog.
    Caso queira, posso lhe enviar a planilha.

    Abs Nélio Borges

  14. Nélio Borges disse:

    Marcos desculpe-me no meu comentário lhe chamei de Manoel, entenda-se Marcos ok.

  15. ANDRE disse:

    MANO MUITO BOM… FIZ UMAS MUDANÇAS NA PARTE DE IMAGENS (TIPO) E GOSTARIA DE SABER COMO COLOCAR UMA PESQUISA POR CLIENTE. TEM COMO VC DAR ESSA FORÇA… POIS SOU MEXILHÃO….RSRS

  16. Wilker disse:

    Olá Marcos, o material que você disponibiliza é muito bom, mas você tem algum outro material que faça o mesmo porém buscando do cadastro no Access?

    Obrigado!

  17. Ian Mazella disse:

    Olá Marcos.
    Gostaria de saber onde estão armazenadas as imagens dos botões de comando (“primeiro”, “anterior”, “próximo” etc) e que precisam ser referidas na propriedade Picture.
    Grato.

  18. Norberto disse:

    Preciso saber como alterar a planilha para acrescentar mais dados
    como CPF, RG e data de nascimento tirar o segundo telefone e o e-mail. grato

  19. Como faço para acrescentar mais imagens no registro?

    Obrigado.

  20. […] exemplo de planilha complementa o artigo http://guiadoexcel.com.br/cadastro-vba-com-imagem incluindo no mesmo a pesquisa dos dados cadastrados buscando pelo […]

  21. Sérgio disse:

    Utilizando a planilha “Clientes” como base de dados, é possível se criar uma outra planilha aonde se mostre os dados de um cliente pesquisando pelo “Código” e mostrando a foto baseada no conteúdo da coluna “Imagem”?

    Precisamos que mostre a imagem e não o endereço da imagem, ok?

  22. Miron disse:

    Olá amigo, Sou fã do site…
    Seria possivel vc incrementar um campo de busca de das pessoas cadastradas e no lugar da imagem um arquivo em anexo, ou seja, uma planilha de cadastro com anexo de documento(Scanner de contrato) e opção de busca por Nome e ou outros campos. Grato!!!

    • Marcos Rieper disse:

      Boa noite Miron,

      Sim, é possível, mas será necessário realizar algumas alterações no modelo do artigo.

      Vamos analisar as modificações sugeridas nos comentários para uma próxima versão.

      Abraço

      Marcos Rieper

  23. Alekson disse:

    Boa tarde !
    Baixei a sua planilha cadastro VBA com imagem, mas quando entro ela da erro! em tempo de execução “75”, erro de acesso ao caminho do arquivo.
    Como faço para resolver?

    Parabéns !

    Grato
    Alekson

    • Marcos Rieper disse:

      Boa tarde Alekson,

      Você tem que configurar a pasta aonde estão as imagens, salve as imagens em um local no seu computador e na planilha altere o local aonde estão as mesmas.

      Abraço

      Marcos Rieper

  24. Robson Miguel disse:

    Boa noite

    Alguém teria algum VBA que eu possa fazer meu controle de materiais, onde necessito realizar pesquisar dos materais pelo:
    Cógigo; Descrição e que gere a imagem do produto pesquisado?

  25. Dino disse:

    Ola amigo;

    Baixei sua planilha “cadastro VBA com imagem”, já fiz todas alterações nela sobre o caminho das imagens na planilha, mais quando vou rodar o form da este erro:
    frmCadastroStudents.Image1.Picture = LoadPicture(Worksheets(“Clientes”).Cells.Range(“M” & lLinha).Value)

    Pintado em amarelo. Dá pra você me ajudar? Obrigado

    • Marcos Rieper disse:

      Boa tarde Dino,

      Esta instrução faz o retorno das imagens para o formulário. Elas estão sendo resgatadas da planilha Clientes na coluna M. Tente copiar o endereço completo da imagem e colar no Windows Explorer, a imagem deve ser aberta pelo sistema, senão está com erro no caminho do arquivo.

      Abraço

      Marcos Rieper

  26. voçe é o Cara…. esta de parabens, usei a sua aplicação para arquivar cheques emitidos com imagens claRO QUE MUDIFIQUEI ALGUMAS COISAS.., esta de parabens…

    KHADAFI

  27. renan disse:

    tá dando erro 76
    frmCadastroStudents.Image1.Picture = LoadPicture(Worksheets(“Clientes”).Cells.Range(“M” & lLinha).Value)

  28. samuel disse:

    Bom dia Marcos!!

    Amigo, não estou conseguindo baixar essa planilha, existe a possibilidade de me enviar por e-mail?

    samuelsales2009@gmail.com

  29. Henrique disse:

    Boa noite Marcos,

    o arquivo .zip apresenta a mensagem de arquivo em formato desconhecido ou danificado. Poderia enviar para o meu e-mail?

    hcsilveira_92@hotmail.com

    grato

    • Marcos Rieper disse:

      Obrigado pelo aviso Henrique, pode baixar novamente, eu arrumei o link.

      Importante aguardar até o final do download para clicar no arquivo zip que está sendo baixado, ás vezes pode ter corrompido neste processo.

      Abraço
      Marcos Rieper

  30. MARIO LUIZ DE SOUZA RAMOS disse:

    Boa tarde Marcos!!

    Amigo, não estou conseguindo baixar essa planilha, existe a possibilidade de me enviar por e-mail?

  31. Takashi Watanabe disse:

    Ola Marcos, moro no japao , e estou utilizando este formulario de cadastro, porem gostaria que me explicasse como seria possivel neste mesmo formulario inserir um comando de busca pelos dados cadastrados, pois tenho mais de 1500 colaboradores cadastrado, Grato.

  32. Takashi Watanabe disse:

    Ola, moro japao e estou a utilizar esse formulario, porem gostaria que se possivel me explicasse como seria para inserir um comando de busca, pois tenho muitos cadastros e facilitaria ter esse campo neste formulario.

    att;

  33. Boa tarde Marcos , você pode encaminhar a planilha , não estou conseguindo baixar, cadastro vba com imagem, desde já agradeço.
    vcoppolla@gmail.com

    • Marcos Rieper disse:

      Olá Vicente,

      Pesquise por download na página, digite seu nome e e-mail e clique no botão download, depois será gerado um link abaixo do botão, clique nele para baixar o arquivo.

      Abraço
      Marcos Rieper

  34. Bruno Silva disse:

    Boa tarde Marcos
    Encontrei um probleminha, baixei a planilha porem ao execultar aparece um erro nesta linha aki
    frmCadastroStudents.Image1.Picture = LoadPicture(Worksheets(“Clientes”).Cells.Range(“M” & lLinha).Value), porem não consegui solucionar, poderia me ajudar grato.

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.

Inscreva-se no nosso canal do Youtube!


Junte-se ao nosso canal do Youtube. Começamos em abril de 2016, mas já temos mais de 06:00 h de treinamentos gratuitos e este número irá aumentar. Vídeos novos todos os sábados.