Salvar e EXIBIR FOTO em Formulário Excel VBA ao Clicar em Listview

[@renatosacchetto2303]

Perfeito. Muito obrigado. Nota 10

[@CanalSGP]

Bom dia, obrigado.

[@lttutoriais9296]

Gostei muito dessa aula eu só principiante em VBA mas com essas aulas ta m ajudando muito

[@CanalSGP]

Obrigado e bons estudos.

[@assisgauderetogaudereto7882]

mais uma excelente aula, parabéns.

[@CanalSGP]

Obrigado.

[@cunhavbaexcelforapplicatio896]

Excelente planilha com exibição de fotos em listview

[@Plantaseoutros]

Muito bom mais as fotos minhas estão salvo na pasta com o numero do id tem como na listbox ao clicar na linha mostrar imagem no image1 ? desde de já agradeço.

[@CanalSGP]

Boa tarde, obrigado, tem outro procedimento em listbox, segue link. kzbin.info/www/bejne/goild6ZsaL99n9E

[@Plantaseoutros]

@@CanalSGP Muito obrigado valeu amigo

[@CanalSGP]

De nada

[@LuisSilva-nu2jw]

Gostaria de receber a planilha.

[@CanalSGP]

Bom dia, qual e-mail?

[@assisgauderetogaudereto7882]

tenho acompanhado todo o trabalho desenvolvido pelo Prof Luan e muito tenho aprendido nesses meses na medida do possível, aprendi muito, sei que muito tenho a aprender. mas, gostaria de fazer uma pergunta: foi criado uma variável Foto no modulo, se eu não criasse essa varável e escrevesse assim no projeto; FOTO = Application.GetOpenFilename(FileFilter:="picture file, *.jpg") "Foto" passaria a ser uma varável sem ser declarada?

[@CanalSGP]

A variável escrita no módulo é para informar o computador que ela é do tipo texto, ou seja String, que é o endereço que vai ser capturado por essa string. Mas não testei sem declarar a variável no módulo, sempre existe outras formas de se fazer.

[@HumbertoAcacio]

Parabéns!!!

[@CanalSGP]

Obrigado.

[@maurilioazevedo9288]

Posso usar nesse mesmo esquema listbox, ao invés de listview?

[@CanalSGP]

Boa noite, acredito que possa ser adaptado.

[@pup1745]

pode me encaminhar a planilha

[@CanalSGP]

Boa tarde, este vídeo é bem antigo, não tenho mais esta planilha.

[@pup1745]

@@CanalSGP você sabe me dizer como usar uma imagem assim hoje em dia? Tem algum outro vídeo de referência?

[@pup1745]

No caso e um sistema compartilhado no onedrive, todos teriam que ter o caminho?

[@CanalSGP]

Boa noite, para carregar a imagem, precisa que todos os usuários tenha acesso ao endereço url da imagem.

[@jeanbraganet1]

Muito bom, mas como faço um banco de dados interno que recorte a foto de uma ficha e cole em uma linha em banco conforme o numero do código?

[@CanalSGP]

Olá, obrigado, não sei de códigos que sejam capaz de fazer isso até o momento. Mas acredito ser inviável, porque tornaria o banco de dados muito pesado rapidamente.

[@marcelonsouza4293]

Tem como fazer isso com os dados ou caminho da imagem estando no acess e importa para formulário excel?

[@CanalSGP]

Olá, provavelmente tenha, mas ainda não temos conteúdo sobre esse assunto.

[@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!!!

[@CanalSGP]

Olá, coloque a seguinte linha de código "On error Resume Next" FOTO = Application.GetOpenFilename(FileFilter:="picture file, *.jpg") On Error Resume Next Image1.Picture = LoadPicture(FOTO)

[@AllexMusic2008]

Poxa amigo FUNCIONOU!!! muito obrigado!!! Viu uma dúvida: Eu tenho um textbox onde será digitado o código do funcionáro e outro textbox onde será digitado o nome do funcionário. Porém, eu queria que ao digitar o código do funcionário, no outro textbox aparecesse automaticamente o nome dele, vc poderia me ajudar? rsrs Desde já agradeço amigo! Abraços!!!

[@CanalSGP]

Olá, é possível sim de ser feito, assim que tiver tempo livre vou gravar um vídeo explicativo. Mas pode se basear em uma pesquisa, desde que tenha registrado em uma planilha em uma coluna o código e em outra o nome do funcionário.

[@AllexMusic2008]

Pois é já tenho esses dados separados! Você conseguiria me ajudar hoje? rsrs É pra entregar amanhã e não consegui encontrar no Google =( Valeu amigo!!!

[@CanalSGP]

Segue exemplo: Insira os códigos no eventro Exit da Textbox Código Funcionário e altere as referencias a sua planilha. No caso estamos fazendo a pesquisa na Coluna B da planilha1, veja onde você vai pesquisar e altere. No local de ("REGISTRO") coloque o nome renomeado de sua planilha onde vai pesquisar. Plan1.Select Plan1.Range("B6").Select With Worksheets("REGISTRO").Range("B:B") Set C = .Find(TextBoxCod.Value, LookIn:=xlValues, Lookat:=xlWhole) If Not C Is Nothing Then C.Activate TextBoxFuncionario.Value = C.Value Else MsgBox "Nenhum dado referente a pesquisa foi encontrado!", vbInformation, "AVISO" End If End With