Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Inserir e Visualizar Imagem

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
salvador
Manda bem
Manda bem
Mensagens: 130
Registrado em: Qua Fev 12, 2014 8:01 am

Inserir e Visualizar Imagem

Mensagem por salvador »

Bom Dia Amigos!

Gostaria de desenvolver o seguinte sistema:
Quando eu clicar com botão direito em qualquer célula da coluna D, eu consigo escolher uma imagem em uma pasta.
Ao escolher essa imagem, ele lança o caminho da imagem na base de dados APOIO
Depois de realizado esse procedimento
Se o usuário der duplo clique na Célula D3 por exemplo, o Excel mostra essa imagem num formulário, ou de qualquer outra forma
É possível?

Obrigado
Anexos
Macro_Imagens.zip
(9.69 KiB) Baixado 248 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


srobles
Jedi
Jedi
Mensagens: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: Inserir e Visualizar Imagem

Mensagem por srobles »

salvador,

Veja se as alterações feitas no modelo, atendem sua necessidade.
Anexos
Macro_Imagens.zip
(27.34 KiB) Baixado 241 vezes


salvador
Manda bem
Manda bem
Mensagens: 130
Registrado em: Qua Fev 12, 2014 8:01 am

Re: Inserir e Visualizar Imagem

Mensagem por salvador »

Simplesmente Perfeito!
Muito Obrigado (Vai mudar minha vida aqui)


Julio Mangilli
Manda bem
Manda bem
Mensagens: 127
Registrado em: Sex Out 05, 2018 2:42 pm

Re: Inserir e Visualizar Imagem

Mensagem por Julio Mangilli »

Não queria abusar mas uma duvida que estou passando trabalho, no momento que selecionamos a Imagem poderias estar copiando a imagem e colocando em outra pasta especifica?

Obrigado.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


srobles
Jedi
Jedi
Mensagens: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: Inserir e Visualizar Imagem

Mensagem por srobles »

Julio,

Experimente o que se segue :

Código: Selecionar todos

Sub copiaArquivo()
    Dim fso As Object
    Dim caminhoCopia As String
    
    caminhoCopia = ""
    
    Set fso = VBA.CreateObject("Scripting.FileSystemObject")
    
    Call fso.CopyFile(arquivoImagem, caminhoCopia)

End Sub
Se estiver utilizando o modelo que disponibilizei, notará que a variável arquivoImagem é pública, sendo que a mesma é definida através da rotina caixaImagem.

Defina a variável caminhoCopia e chame a rotina acima, após o processo.


Julio Mangilli
Manda bem
Manda bem
Mensagens: 127
Registrado em: Sex Out 05, 2018 2:42 pm

[RESOLVIDO] Re: Inserir e Visualizar Imagem

Mensagem por Julio Mangilli »

Simplesmente Maravilhoso.

Muito Obrigado Saulo incrível.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder