Notifications
Clear all

Ajuda imagem vba

10 Posts
4 Usuários
0 Reactions
1,619 Visualizações
(@filipilima)
Posts: 5
Active Member
Topic starter
 

ola pessoal
estou com um problema preciso carregar uma imagem no vba através do ctrl c ou print screem e salvar na planilha/pc
ex criei um image e um botão carregar imagem dou ctrl c ou print para selecionar e quando clicar no botão ele trás a imagem no quadradinho image1 para conferir e quando tiver ok eu clico no outro botão para salvar na planilha/pc

obrigado

 
Postado : 10/12/2014 9:50 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Eu não entendi muito bem, mas enquanto isso, leia:
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Você já tem um modelo pronto (então post o), tente montar o Antes e Depois.

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 10/12/2014 12:20 pm
(@filipilima)
Posts: 5
Active Member
Topic starter
 

ex estou cadastrando varias peças com código descrição etc, e quero colocar a imagem dessas peças dando um printscreen e usar um botão para carregar essa foto da area de trans e exibir num image para confirmar e depois clicar num botão salvar para salvar todos os dados na planilha incluindo a foto numa determinada pasta

 
Postado : 11/12/2014 3:01 pm
Basole
(@basole)
Posts: 487
Reputable Member
 

filipilima, se estiver copiando a imagem de alguma pag da internet, veja essa opcao se atende:

Selecione uma celula que quer inserir a imagem e cole o link da image nesta celula, em seguida execute a macro "Copy_Imagem"

Sub Copy_Imagem()
    Call CopyPicFromWeb(Trim(ActiveCell), ActiveCell)
End Sub
Private Sub CopyPicFromWeb(strShpUrl As String, rngTarget As Range)
    Dim shp As Shape
    With rngTarget
        With .Parent
            .Pictures.Insert strShpUrl
            Set shp = .Shapes(.Shapes.Count)
        End With
        shp.Left = .Left
        shp.Top = .Top
    End With
    Set shp = Nothing
End Sub

Click em se a resposta foi util!

 
Postado : 11/12/2014 4:30 pm
(@filipilima)
Posts: 5
Active Member
Topic starter
 

não, segue planilha do projeto
ex quero dar um print da tela e guardar a imagem na pasta de destino, quando tiver que pesquisar pelo codigo que a imagem venha junto

 
Postado : 11/12/2014 5:10 pm
selmo
(@selmo)
Posts: 236
Estimable Member
 

Dá uma olhada nesse exemplo de cadastro com foto, as fotos são armazenadas em uma pasta junto a planilha, e são chamadas pelo nome de registro para o formulário.

"A mente que se abre a uma nova ideia jamais voltará ao seu tamanho original."
Albert Einstein

 
Postado : 12/12/2014 5:23 am
(@filipilima)
Posts: 5
Active Member
Topic starter
 

Dá uma olhada nesse exemplo de cadastro com foto, as fotos são armazenadas em uma pasta junto a planilha, e são chamadas pelo nome de registro para o formulário.

parecido so que invés de capturar a imagem com o botão para abrir a caixa e selecionar num lugar, quero dar um ctrl c e ter um botao que puxa a imagem da area de transferência ex "como dar um print na tela e depois clicar no botao colar no paint"

 
Postado : 12/12/2014 7:28 am
selmo
(@selmo)
Posts: 236
Estimable Member
 

Sabe que junto com essa imagem, virá tambem a sua tela inteira com formulário, planilha, barra de tarefas e afins né?

"A mente que se abre a uma nova ideia jamais voltará ao seu tamanho original."
Albert Einstein

 
Postado : 14/12/2014 2:35 pm
(@filipilima)
Posts: 5
Active Member
Topic starter
 

ola Selmo sei sim, mas ou ter que ter essa opção e outros vou ter que pegar imagens de peças na internet e dar o copiar seria muito mais rapido que fazer download pra depois procurar onde foi salvo e importar

 
Postado : 15/12/2014 7:26 am
selmo
(@selmo)
Posts: 236
Estimable Member
 

Então, não que seja algo muito dispendioso, mas o form que postei anteriormente seria exatamente isso que teria que fazer, mais uma vez feita, a planilha com a pasta DBfotos funcionaria em qualquer pc, sem ser nescessário ter que configurar o caminho dos arquivos. E claro, se quiser mais comodidade, poderia salvar as imagens com os nomes e somente cadastra-los direto na planilha, e só alterar a linha onde marca a opção como "N" para "S". Claro que as imagens terão que estar com o mesmo nome de registro.

"A mente que se abre a uma nova ideia jamais voltará ao seu tamanho original."
Albert Einstein

 
Postado : 15/12/2014 6:03 pm