Transferir Imagem de um formulário para planilha(RESOLVIDO)

[Guima]

Boa noite,

Lá vou eu de novo...

É possível transferir uma imagem de um formulário para um local na planilha ? Da mesma forma que eu armazeno um valor do formulário na planilha, queria fazer o mesmo com uma imagem. Já pesquisei no google e nada encontrei a esse respeito, alguém tem alguma idéia ?

Minha tentativa traz um valor númerico para a planilha e não a imagem. Abaixo segue como tentei:

Código: Selecionar todos

Sheets("CARTEIRA").Range("C10") = Image_Cliente.Picture

Abraços

[joseA]

E ai fera,

Tenho um arquivo exemplo que faz exatamente isso que vc quer, o problema é localizar. Assim que conseguir posto.

[Mauro Coutinho]

Enquanto aguardamos o exemplo do José, vou postar minha ideia:

Seria a seguinte :

Usando como modelo que o Jose postou, crie um Label abaixo da Foto e quando carrega-la para o Form, informe no Label o Nome ou Localização da mesma, e depois adapte a rotina que carregou a Foto para o Form em (image_cliente) para inseri-la na planilha.

No form do modelo acima temos, a linha para carregar a foto em Image_Cliente :
Image_Cliente.Picture = LoadPicture(TextBox1.Text)
Image_Cliente.PictureSizeMode = fmPictureSizeModeStretch 'fmPictureSizeModeZoom

Com o nome armazenado no LABEL, adaptariamos uma rotina da seguinte forma:
MinhaFoto = LoadPicture(LABEL)

Depois jogamos a mesma para a planilha.

Isso foi somente uma idéia, teria que ver as funções corretas para Buscar e Inserir a mesma.

Acho que seria uma opção.

abraços

[joseA]

Achei aqui no meus arquivos, salve engano, é de um dos CD's do site Tudo Sobre Excel.

[Guima]

Olá Pessoal,

Antes de postar qualquer besteira testei muito....tanto as idéias do Mauro, quanto o exemplo do José, e atá algumas tentativas minhas mesmo.

O exemplo que o José (Fera) postou é sensacional, mas ali ele copia o formulário todo e não apenas o objeto IMAGE. Embora tenha tentando entender toda a estrutura, não consegui identificar o que preciso fazer pra mudar para copiar apenas o objeto IMAGE.

Baseado nas dicas do Mauro e em alguns exemplos, um inclusive do José, tentei dessa forma:

Código: Selecionar todos

On Error GoTo ErrorHandler
        Sheets("CARTEIRA").Image1.Picture = LoadPicture(txtfoto)
        Sheets("CARTEIRA").Image1.PictureSizeMode = fmPictureSizeModeStretch
       
ErrorHandler:
        If Err.Number = 71 Then MsgBox ("Não existe foto")
        Err.Clear
        Resume Next

Porém, nada é enviado para a caixa de imagem dentro da planilha.

Agradeço a colaboraçãod e todos. Abs

[Mauro Coutinho]

Segue um modelo, que já postei aqui no forum, e com uma simples adaptação nas rotinas (desabilitar uma linha e alterar outras), a imagem do formulário é enviada para a planilha, é só estudarem melhor a mesma e fazerem as adaptações necessárias.

(Guima,
você deve ter um outro exemplo que lhe enviei uma vez, referente aos Formulários Abertos, lembra ?)

O Modelo original encontra-se no Tópico abaixo:
Criando imagem apartir de intervalo celulas
viewtopic.php?f=5&t=210&p=1381&hilit=figura#p1381
Arquivo : CopyPictureToIPicture.rar

Divirtam-se.


abraços

[joseA]

Executei seu exemplo e deu certo, veja...

[Mauro Coutinho]

Executei seu exemplo e deu certo, veja...

Muito boa a adaptação, acredito que basicamente a ideia dele é essa, apesar que pelo que entendi ele quer transferir a Figura carregada no formulário para a planilha, então fiz uma nova adaptação em seu modelo.

Agora só falta aguardar a opinião do Guima se é isso mesmo que ele quer.

abraços

[Felipe Dasi]

Parabéns para Mauro e José, ótimas as soluções. Ficou muito gostoso de mexer nelas. Abração

[Guima]

Falar mais o que...??? Ficou perfeito Mauro, eu até havia feito uma gambiarra ontem, seguindo suas dicas, mas com seu exemplo ficou muito melhor. Agradeço também ao José (Fera), sempre com boas sugestões !!!

Valeu gente