Notifications
Clear all

Cadastro VBA + hiperlink + JPEG

10 Posts
2 Usuários
0 Reactions
1,566 Visualizações
Valderei
(@valderei)
Posts: 29
Eminent Member
Topic starter
 

Senhores boa tarde.
Estive procurando alguns auxilios e dicas pela net e no fórum neste final de semana para uma melhoria que me foi solicitada.
Alguns amigos aqui do fórum já tem me ajudado na finalização de meu projeto em VBA e agora estou aqui para solicitar mais uma vez a ajuda de vocês.

O Formulário que criei (Controle de RCQ) é para serem registradas as Não Conformidades da empresa nele, existe inúmeras informações e uma delas é o código da peça que foi encontrada com problema, essas anotações dependendo se são reincidentes ou o custo dela é alto, são analizadas em reuniões. Nessas reuniões discutimos sobre ela e precisamos muitas vezes vê-la novamente.

A pergunta então é, toda vez que eu criar um registro novo, há como linkar o código do desenho com seu respectivo desenho, temos ele dentro de um diretório no servidor e são todos em formato JPEG.

Vou anexar novamente a planilha e se alguém puder dar uma dica ficarei muito grato.

Obrigado.

 
Postado : 06/02/2013 9:35 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Fala ae,
bom, se vc for usar isso em um formulário VBA, vai precisar do componente IMAGE.
O que da pra ser feito é renomear cada imagem com o código da imagem e salvar em um diretório.
Ai sempre que precisar visualizar a imagem, chama o evento abaixo.

 Image1.Picture = LoadPicture("caminhoDoServidorNomeDaImagem.JPG")

Acho que resolve.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 06/02/2013 11:17 am
Valderei
(@valderei)
Posts: 29
Eminent Member
Topic starter
 

Fala Caio, valeu pela dica, mas desta forma eu preciso renomear toda vez. E nem sempre sou eu quem anexa os desenhos, pois somos em mais pessoas no setor e todos tem acesso a planilha.
Precisaria de algo do tipo "botão direito - Hiperlink" mesmo. Será que isso é possível ou em VBA é meio restrito?

Mais uma vez obrigado.

 
Postado : 06/02/2013 7:04 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Existem "N" formas de se fazer o que pretende, segue um exemplo bem basico, se entendi corretamente, através de um Formulário de Cadastro você quer selecionar a foto referente ao mesmo e deixa-la associada a este cadastro sem ter de ficar renomeando o arquivo da foto.

Primeiro : No arquivo compactado temos o arquivo principal e uma pasta com as Fotos chamada "Fotos", descompacte-o no mesmo diretorio;

Segundo : Apos abrir o arquivo "cad_Foto.xls", só temos um registro para exemplo, abra o Formulário e aparecerá a Foto que está associada de acordo com a referencia (nome ou numero da foto)que se encontra na Celula "C2";

Terceiro : No Formulário, clique em "Escolher Foto", selecione outra qualquer, aparecerá a mensagem que para manter a alteração é necessário clicar em "Alterar", se confirmar, na celula "C2" será colocado o numero ou nome da nova foto, se cancelar nada é alterado.

Faça os testes se é isto que pretende, qq duvida retorne.

Selecionar e associar foto ao cadastro

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 06/02/2013 8:59 pm
Valderei
(@valderei)
Posts: 29
Eminent Member
Topic starter
 

Quero agradecer de coração aos amigos que me deram sugestões para conseguir render meu pequeno projeto.
Tenho passado quase que 02 horas por dia encima desta inserção (sou iniciante...) de informações em minha planilha e hoje mexendo em outro "Formulário" vi que estou próximo da finalização, mas agora mais que nunca precisarei da ajuda de alguém com alguns dias a mais que eu em VBA.

Adaptei um código do site http://www.guiadoexcel.com.br e consegui chegar mais próximo do final.

Já consigo selecionar a foto, carregar ela no form, mas ainda não consigo deixar ela salva lá, para que em nova busca consiga ve-la novamente. Não consigo também limpar ela da "image" quando clico no botão limpar.

Se alguém puder me dar uma mão com isso, ficarei muito grato.

Já abusando da boa vontade de vocês, eu tenho neste form uma label onde vejo quantos registros eu tenho criado, mas ela só aparece se eu clicar nela, pensei em deixar ela automática, ou seja, quando abrir o form já me diga quantos registros tem.

Senhores, um muito obrigado e se alguém tiver alguma dica ou se (abusando) quiserem mexer nela agradeço.

 
Postado : 07/02/2013 2:05 pm
Valderei
(@valderei)
Posts: 29
Eminent Member
Topic starter
 

Senhores, passei mais alguns instantes em frente ao meu "projeto" e nada, vou anexar o modelo que usei para pegar os códigos, acho que é um pouco mais dificil adaptar os códigos do que imaginei.

Se puderem me dar uma mão.

 
Postado : 08/02/2013 9:44 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Sinceridade, ainda não entendi o problema.
No seu anexo R.Q008 esta como o codigo vb com senha. e no model CadastroComImagem aparentemente está OK

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/02/2013 10:44 am
Valderei
(@valderei)
Posts: 29
Eminent Member
Topic starter
 

Me desculpe, realmente Reinaldo, pus o arquivo e esqueci de disponibilizar a senha.
É 123456

O segundo arquivo que pus é de onde quero tirar os códigos para adaptar no primeiro arquivo o R.Q 008.
Tentei de várias modos, mas como não tenho muita familiaridade ainda com os códigos não consegui efetuar a adaptação.

Se puder me dar uma mão mais uma vez Reinaldo...

Um abraço.

 
Postado : 08/02/2013 8:04 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Veja se lhe auxilia.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 09/02/2013 12:22 pm
Valderei
(@valderei)
Posts: 29
Eminent Member
Topic starter
 

Grande Reinaldo...era isso que precisava mesmo.
Será que tem como clicar duas vezes na mãozinha!!!

Um muito obrigado pela ajuda meu amigo.

Vou marcar como resolvido o post.

 
Postado : 09/02/2013 6:02 pm