Inserir Imagem ou Foto em Formulários no Excel e VBA (Download na descrição)

NÃO DEIXE DE VER ESTE VÍDEO NA ÍNTEGRA!
Com a utilização do Excel e VBA criamos um formulário para cadastro de dados com inclusão de imagem ou foto.
Matéria com link para Download: excelmax.blogsp...
Observação importante: Não esqueça de colocar as fotos na pasta que foi definida no caminho.
Inscreva-se neste canal e receba informações de publicações de novos vídeos: www.youtube.com...
Ivair Ferrari

[@alexpantoja610]

Mano demais essa aula no meu aqui Tava complicado de aparecer a imagem mais revir o vídeo várias vezes e vi q eu estava errando no local da imagem, então deu certo. Obrigado pela aula ajudou muito.

[@Cello-Rick]

Cara, Parabéns.. Muito bom seu canal. Você ensina muito bem. De uma forma bem fácil de aprender. É como fazer uma faculdade a distância.

[@klebersonmoreira1821]

ESSE SABE TUDO E UM POUCO MAIS, PARABÉNS PROFESSOR.

[@GoncaloMonteiro77]

Muito interessante e fácil de compreender. Parabéns Ivair, obrigado pelo vídeo.

[@renato.straube]

Oi Sr Ivair. Que coisa hein, um vídeo melhor que o outro, aprendi mais uma. Obrigado por compartilhar seu conhecimento.

[@cintiamagalhaes4776]

Muito interessante e de fácil compreensão. Parabéns! Que Deus o abençoe!

[@sistemascr2050]

Muito boa a aula, parabéns pela excelente explanação, continue nos ajudando. Abraços cordiais.

[@marcosflaviodeoliveiraflav9421]

FIZ a planilha e funcionou muito bem,,, agora estarei trabalhando para aparecer só a tela inicial com opção de senha pra abrir

[@AndreSantos-nx2zf]

Excelente vídeo, prático, direto e eficiente. Apenas uma pergunta. Se eu digitar um código que não for localizado, como faço para limpar a imagem anterior e aparecer a mensagem de erro? Obrigado.

[@ivairferrari]

Olá André! Que bom que gostou. Para ajustar a questão que vc levantou, de uma olhada nos vídeos desta playlist: kzbin.info/aero/PLdWxHFWa8woGA7kcOgPCIEaIhmKeTFZ1t Nestas aulas, falei durante uma semana sobre urna eletrônica com fotos e abordei o assunto que trata quando não encontra a foto/imagem. Ivair Ferrari

[@AndreSantos-nx2zf]

Perfeito, era exatamente o que eu estava precisando. Obrigado.

[@jesusacacio5108]

muito bom parabens Ivair

[@GeraldoMoraes]

Muito legal, vou testar, pois estou tentando fazer o mesmo com o ACCESS, ainda sem sucesso^o/

[@gilsoncarlos1669]

Excelente professo! tive problema apenas na exibição da imagem, seguindo os passos, consegui montar o esquema, quando poder me atenda no skype, Selva!

[@ivairferrari]

+Sgt Gilson Carlos meu Skype: ivairferrari. Favor adicionar e chamar. Ivair...

[@elsogoncalves5345]

Boa tarde Ivair.Com ficaria,se coloca-se em lugar do caixa texto cdcodigo coloca-se uma listbox ou combox,inves de digitar ele já estivesse todos os códigos na listbox ou combox,passando o mouse no código mostra-se a foto junto com os campos.Att:Elso

[@servioster]

espetáculo. Poderia dar um curso online.

[@adailtonaraujo1514]

Ivair, boa noite, gostei muito desse formulário com imagem, porém não estou encontrando a aula de número 2 para concluir este formulário. Você pode me enviar o link?

[@jacomoreira2]

Boa noite. É possível atribuir um comando ao clicar no botão PICTUREBOX para que a imagem que nele está exibida numa resolução menor seja exibida num pop up no qual essa mesma imagem fique numa resolução maior?

[@jorgemelo2579]

Ola Ivair!!!! Fiz todos os procedimentos da tua aula, so que deu um erro na linha " set endereco = ranger("i 1") ", so que a minha planilha eu coloquei 4 colunas a mais. Poderias me dar uma explicação melhor a respeito deste erro??? Obrigado.

[@ivairferrari]

+Jorge Melo Altere : ranger para range Att. Ivair

[@andersoncampos8363]

Ótima aula, o meu está depurando aqui: Set foto_busca.Picture = LoadPicture(imagem)

[@leonardoradespiel9065]

Professor, olá! Não consegui carregar a imagem no campo ImFoto. Deu o seguinte erro: Caminho não encontrado. Troquei a extensão do arquivo de .jpg para .PNG, mas não deu certo. O que posso fazer para descobrir se o caminho informado para a foto está de acordo com o que eu coloque? Desculpe-me, estou começando em Excel VBA. OBSERVAÇÃO: Eu não criei a pasta produto em C. Criei a pasta Imagens na mesma pasta do meu programa. Desde já, obrigado.

[@ivairferrari]

+Leonardo Radespiel Pela mensagem de erro deve ser algo com o local onde as fotos/imagens estão gravadas. Caso queira que lhe ajude, adicione no skype e me chame. Posso verificar. (Skype: ivairferrari) Atenciosamente! Ivair Claudio Ferrari Grupo Excelmax

[@elcesar2005]

Ola Ivair, Meu nome eh Elton, e apesar de nao entender nada de VBA, estou tentando montar um cadastro de produtos, com fotos (3), que servira para consulta no dia a dia. Segui seu exemplo e funciona, quando eu coloco fotos salvas da internet, mas quando coloco alguma que eu mesmo bati da erro na linha "Set foto1.Picture = LoadPicture(imagem1)". Ja tentei diminuir o tamanho, mas nao deu resultado. O que sera que estou fazendo errado. As fotos estao em JPEG. Agradeco se puder me ajudar. Desculpe pela falta de acentos, mas estou usando um PC velho com XP e o sistema esta em japones, Obrigado, Elton

[@demonchacon1]

Professor boa tarde quando eu coloco set imFoto.picture = loadpicture(imagem) ai quando eu dou enter o imfoto fica minúsculo

[@ghostgratis4723]

muito bom

[@wisraramos2839]

por favor estao dando error no meu progama e nao to conseguindo arrumar, me passe seu e-mail , e caso possa me ajudar eu lhe envio o arquivo.

[@elsogoncalves5345]

Boa Noite Ivair. Como ficaria o código,se fosse adicionado campo pesquisar e cadastrar. Att: Elso

[@ivairferrari]

Elso pack Pack Olá Elso. É simples. Com outros vídeos que fiz vc consegue montar algo para cadastro e pesquisa. A questão importante aqui é as imagens/Fotos. pois vc precisa preparar elas primeiro e salvar na pasta correta cm o nome correto ou , com relação ao nome, vc pode cadastrar via código. Tente e se não conseguir, comente aqui que vejo se monto um modelo completo. Grande abraço Ivair Claudio Ferrari

[@ejsdrone8680]

ola bom dia ,ivair nao tem como o sr. disponibilizar pra da download tentei fazer aqui mais essas variavel estão dando erro

[@ivairferrari]

Olá Amigo. Link para Download na Descrição do vídeo.

[@alexpantoja610]

Olá professor, queria saber como se faz pra tirar esse erro q da quando não se tem nada na área do código.

[@rodrigolvs11]

Professor tudo bem ? onde esta o link da aula seguinte?

[@pedromoreiraa]

boa noite. parabens por os videos. fiz tudo como o seu video, mas dá erro no codigo "Set Image1.Picture = LoadPicture(imagem)" quando passo o rato em cima do (imagem) ele dá o caminho para a pasta mas acrescenta um "Z" exemplo C:\fotos\Z. e o codigo que tenho na panilha é c:\fotos\ . e o nome da foto é foto1,nao sei de onde vem o "Z", podia ajudar

[@marcellozamora2101]

esta faltando código nesta planilha, não abre a imagem na pasta.

[@gilsonantoniocunha6629]

Bom dia Ivair Claudio, estou usando o formulário, mais preciso que as fotos preencha toda a caixa de imagem, pois tenho fotos de vários tamanhos, já tentei alguns comandos mais não esta dando certo. Se tiver algum comando especifico por favor passe para todos nós.

[@ivairferrari]

+Gilson Antônio Cunha Olá caro amigo. Informe um email seu que mando explicações. Preciso enviar uma imagem de onde vc deve mexer. Abs! Ivair

[@gilsonantoniocunha6629]

Ivair Claudio. Muito obrigado pela atenção, consegui fazer o que precisava, esta colocando o comando errado na macro , estava usando o comando de centralizar a mesma, em vez de usar de expandir a foto no quadro.

[@ivairferrari]

Quem bom que conseguiu. Precisando, estou a disposição. Grande abraço! Ivair.

[@gilsonantoniocunha6629]

Ivair continua assim compartilhando conhecimento, aprendi muito com as sua vídeo aulas e planilhas de demostração. Muito bom o seu trabalho.

[@ivairferrari]

Obrigado Amigo Gilson. Grande Abraço!

[@AllexMusic2008]

Alguém poderia me ajudar, quando abre a janela pra escolher a imagem, Se eu escolher a imagem dá tudo certo, mas se eu clicar no botão CANCELAR, dá erro : " Erro em tempo de execução : 53" O arquivo não foi localizado . Alguém poderia me ajudar??? Desde já agradeço pessoal! Abraços!!!

[@FernandoLima-qm7vo]

Boa tarde Professor, Quando rodo a Macro, na linha que define a "ultimaLinha", está dando um erro "424" "o objeto é obrigatório". Porém fiz exatamente igual a linha de comando que você coloca no video. O que pode ser?

[@ivairferrari]

Olá Fernando. Vc não deve ter a planilha "Plan1" que coloquei no exemplo. Altere isso que deve funcionar. Ivair Ferrari

[@FernandoLima-qm7vo]

Ola Ivair, eu já havia trocado, mas não funcionou. Dê uma olhada: ultimaLinha = Cad_Receitas.Cells(Cad_Receitas.Cells.Rows.Count, "b").End(xlUp).Row A aba é "Cad_Receitas"

[@ivairferrari]

OK Fernando. Mas veja que este deve ser o nome interno desta aba. Vc consegue ver isso somente lá no VBA. Ali é que o nome deve ser o mesmo.

[@ivairferrari]

Se vc utilizar o nome externo, que aparece no Excel, vc deve utilizar: ultimaLinha = Sheets("Cad_Receitas").Cells(Sheets("Cad_Receitas").Cells.Rows.Count, "b").End(xlUp).Row se o nome da aba for "Cad_Receitas"

[@FernandoLima-qm7vo]

Agora Sim. Muito obrigado Professor. Excelente didática a sua. Agora funcionou.

[@clairtonsilva5260]

boa noite..onde vejo a 2ª parte desse video ?

[@ivairferrari]

Veja a partir de 31/10/2016: viverdexcel.com.br

[@severinojoaquim]

Professor, onde encontro a continuação dessa

[@leandro.azevedo]

Boa Noite Professor estou com problema em carregar a imagem, pode me ajudar?

[@ivairferrari]

+Leandro Fernandes Meu Skype: ivairferrari. Favor adicionar e chamar. Ivair...

[@dougllass]

Bom dia!!! Alguém sabe como faço pra não procurar em branco no Código, ou quando estiver sem o código não dar erro. Obrigado!

[@ivairferrari]

+Douglas Silva Pode ser colocada uma instrução "IF "para informar se o campo estiver vazio não executar o procedimento. Caso não consiga, favor chamar pelo Skype: ivairferrari.

[@rickbrasill69]

ACOMPANHEI A AULA TODA, FUI FAZENDO POR PARTES E NO FINAL NAO DEU CERTO. NÃO APARECEU IMAGEM NEM DESCRIÇÃO NENHUMA. NÃO SEI ONDE ESTA O ERRO. ACHO QUE ISSO JAMAIS ENTRARÁ NA MINHA MENTE.

[@ivairferrari]

Olá Rick! Se vc tentar novamente e seguir os passos corretamente vai conseguir. Não desista.

[@rodrigomeira5510]

Olá Ivair! você poderia passar seu e mail?

[@ivairferrari]

Rodrigo Meira [e-mail]