CARREGAR FIGURA NO EXCEL VIA CODIGO VBA OU PROCV
Boa tarde,
Possuo uma planilha de ficha de produção que, quando eu digitar o codigo do componente a ser produzido (codcomp), abra automaticamente a figura correspondente ao produto, que esta numa pasta do meu hd, num intervalo de celulas (VnomeFoto) e que, quando eu deletar o codigo do componente o intervalo volte a ficar vazio:
Possuo uma planilha de ficha de produção que, quando eu digitar o codigo do componente a ser produzido (codcomp), abra automaticamente a figura correspondente ao produto, que esta numa pasta do meu hd, num intervalo de celulas (VnomeFoto) e que, quando eu deletar o codigo do componente o intervalo volte a ficar vazio:
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=400941&varWorld=
Amigo, obrigado pela ajuda porem o que realmente preciso é que, quando eu digitar o codigo do componente (intervalo renomeado como codcomp) traga automaticamente a foto do componente no intevalo foto, aqui que na realidade é um controle de imagem do actve x cujo nome é imgfoto.
A plan funcionara assim:
o pcp digita o codigo do componente a ser produzido e de acordo com o codigo do componente que é de 1 a 14, me busque a foto do componente dentro do diretorio F:\HIDROWATT\INTRANET\PRODUÇÃO\INJETORA\Imagens Não Deletar, as fotos estao nomeadas de 1 a 14.jpg
Agradeço se puder ajudar
A plan funcionara assim:
o pcp digita o codigo do componente a ser produzido e de acordo com o codigo do componente que é de 1 a 14, me busque a foto do componente dentro do diretorio F:\HIDROWATT\INTRANET\PRODUÇÃO\INJETORA\Imagens Não Deletar, as fotos estao nomeadas de 1 a 14.jpg
Agradeço se puder ajudar
Cara isso ai é uma planilha e não um FORM neh?
se for uma planilha coloque esse código dentro dela
ALT+F11 de um duplo clique na planilha em questão e coloque o código
se for uma planilha coloque esse código dentro dela
ALT+F11 de um duplo clique na planilha em questão e coloque o código
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range([Ô]codcomp[Ô])) Is Nothing Then
If Not IsEmpty(Target.Value) Then
MyPath = ([Ô]C:\FOTOS\[Ô] & Target.Value & [Ô].jpg[Ô])
imgFoto.Picture = LoadPicture(MyPath)
Else
imgFoto.Picture = LoadPicture([Ô][Ô])
End If
End If
Application.EnableEvents = True
End Sub
Me.Image.Picture = LoadPicture(ThisWorkbook.Path & [Ô]\HIDROWATT\INTRANET\PRODUÇÃO\INJETORA\Imagens\[Ô] & [Ô].jpg[Ô])
FILMAN, procedi como tu descreveu mas nao deu resultado! O intervalo codcomp é uma celula da planilha
Sim isso mesmo! o codcomp é uma célula da planilha ou seja A1 renomeado para codcomp
cara aqui funciona perfeitamente
vc deve estar fazendo alguma coisa errada
Segue anexo,
crie uma pasta Fotos e coloque-a na raiz do pc C:\Fotos dentro da pasta insira as imagens ou mude o caminho no VBA para onde esta suas imagens
Abra o Excel e verifique
cara aqui funciona perfeitamente
vc deve estar fazendo alguma coisa errada
Segue anexo,
crie uma pasta Fotos e coloque-a na raiz do pc C:\Fotos dentro da pasta insira as imagens ou mude o caminho no VBA para onde esta suas imagens
Abra o Excel e verifique
Filman 
, deu certo teu código, não estava dando certo pq a celula onde eu digitava o codigo do componente estava mesclada. Fiz em uma celula única e funcionou. Obrigado garoto 
, deu certo teu código, não estava dando certo pq a celula onde eu digitava o codigo do componente estava mesclada. Fiz em uma celula única e funcionou. Obrigado garoto
Tópico encerrado , respostas não são mais permitidas