Cadastro Pessoal com Foto

[Laercio_JP]

Como todo iniciante, tambem tenho um certo problema.

Tenho um arquivo de Cadastro escrito em VBA, onde os dados inseridos no userform, são gravados na planilha do excel.

Dados como texto e numeros são faceis de se trabalhar.

Eu preciso adicionar foto nesse userform, e armazena-los na planilha, assim como os textos.

Como devo proceder, ou como escrever o codigo.

Toda ajuda sera bem vinda.

Assim que resolvido postarei para aqueles que tem o mesmo problema.

[João.Neto]

Um dos melhores truques é armazenar na planilha ou no banco de dados o caminho da figura, e então carregar o Image através deste endereço. Por exemplo, você pode criar uma pasta padrão para as figuras que fique no mesmo diretório que a planilha. E então, referenciar a esta pasta desta forma:

Image1.Picture = LoadPicture(ThisWorkbook.Path & "\images\Img00002_.jpg")

O nome da figura poderia ser o nome da célula onde está o caminho referenciado, uma variável que guarde o endereço ou qualquer outra coisa que indique o caminho da figura, seu nome e sua extensão (.gif, .jpg e etc...).

Acho que já te dei o caminho das pedras, boa sorte!!!

B)

Só para complementar o que informei, se você armazenar o nome da figura junto de seu caminho completo então você não precisa utilizar a propriedade ThisWorkbook.Path . Mas, se você utilizar um diretório padrão - o mesmo em que a planilha se encontra -, armazene apenas o nome da figura e carrega-a no Image como informei acima.

Abs... :D

[Laercio_JP]

aro amigo Joao Neto.

Desculpe não ter mensionado direito o funcionamento.

As fotos realmente estao em uma pasta camada "Fotos", no mesmo diretorio que se encontra a planilha,

eu já avia inserido o codigo de carregamento, como segue abaixo:

Private Sub btnAddPic_Click()

Dim fname As String

' Abre a caixa de Dialogo.

fname = Application.GetOpenFilename(filefilter:= _

"Image Files(*.jpg),*.jpg", Title:="Select Image To Open")

' Carrega a Figura no Controle.

imgFoto.Picture = LoadPicture(fname)

' Atualiza o UserForm.

Me.Repaint

End Sub

Eu so ainda não consegui armazenar o codigo na planinlha e fazer com que a "Foto" mude de acordo que os dados vao mudando, desde que o formulario (UserForm) possui botoes de Primeiro,Proximo,Anterior e Ultimo Registro.

Como voce mansionou, o melhor seria armazenar o caminho da figura na planilha, eu tentei com hiper link e não funcionou.

OBS: Os botoes de movimento funcionar perfeitamente com os dados.