Página 1 de 1

Inserir e Visualizar Imagem

Enviado: Sex Ago 30, 2019 12:49 pm
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

Re: Inserir e Visualizar Imagem

Enviado: Sex Ago 30, 2019 4:36 pm
por srobles
salvador,

Veja se as alterações feitas no modelo, atendem sua necessidade.

Re: Inserir e Visualizar Imagem

Enviado: Seg Set 02, 2019 10:50 am
por salvador
Simplesmente Perfeito!
Muito Obrigado (Vai mudar minha vida aqui)

Re: Inserir e Visualizar Imagem

Enviado: Sex Set 06, 2019 11:41 am
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.

Re: Inserir e Visualizar Imagem

Enviado: Sex Set 06, 2019 11:58 am
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.

[RESOLVIDO] Re: Inserir e Visualizar Imagem

Enviado: Sex Set 06, 2019 1:31 pm
por Julio Mangilli
Simplesmente Maravilhoso.

Muito Obrigado Saulo incrível.