Cadastro VBA com Imagem

Objetivo: Disponibilizar um cadastro VBA com imagem.


A ideia deste cadastro de exemplo é realizar a seleção de arquivos de imagem e ligá-los ao registro atual.

Para testar, clique no botão editar e sobre o campo destinado a figura, selecionar imagens do tipo BMP ou ICO, depois clique em salvar.

O código abrirá uma janela de busca das imagens, e ao salvar, o sistema irá salvar o local aonde está a imagem, logo a pasta não deverá mudar de local, senão as imagens não serão mais localizadas.

Esta é a parte do código que faz a busca da imagem, ao você clicar sobre o campo destinado a imagem.

frmCadastroStudents.Image1.Picture = LoadPicture(Worksheets("Clientes").Cells.Range("M" & lLinha).Value)

Baixe a planilha

Abraço

Marcos Rieper