Carregar e Salvar IMAGEM de Formulário Excel VBA para Pasta no Computador

Códigos Excel VBA para carregar imagem para formulário Excel VBA e salvar imagem para pasta do computador. Procedimento Excel VBA para carregar e salvar imagem em formato .jpg. Com botão de comando é possível selecionar a imagem e carregar para formulário vba. E com outro botão de comando salvamos a imagem para diretório definido para salvar imagem via códigos Excel VBA.
✅Site SGP: Venda de Coleção de Planilhas Excel VBA Prontas:
www.planilhasc...
==============================================

[@brstoccom]

Meus parabéns, mais didático, impossível!

[@CanalSGP]

Obrigado pelo elogio

[@maisqplaygames]

Consegui Colocar Foto dos Usuário na Planilha Controle de estoque, graças as suas Aulas professor... Melhor Canal de Conteúdo Excel...

[@CanalSGP]

Olá, obrigado.

[@FranciscoSilva-df2sv]

Boa tarde chefe, Deus abençoa. Consegui da um avanço quase 100% na minha planilha com sua aula, fico muito agradecido. Gostaria de sabe se tinha como capturar o camino da foto a ser salva e pesquisada em outro textbox.

[@CanalSGP]

Boa noite, se não me falha a memória tem uma variável chamada Pasta no código. Pode colocar esta variável como Public para poder utilizar o endereço em outras partes do formulário.

[@altobellysantos7258]

Boa noite! Antes de tudo, quero parabenizá-lo pelo excelente trabalho e pela qualidade do conteúdo que você compartilha sobre VBA. Suas explicações são claras e sempre muito detalhadas, facilitando o aprendizado de todos nós. Obrigado por dedicar seu tempo para compartilhar seu conhecimento! Estou desenvolvendo um UserForm e encontrei um problema no botão "Carregar Imagem". Quando clico nele, abre a janela com as opções "Abrir" e "Cancelar". No entanto, ao clicar em "Cancelar", o formulário apresenta um erro: "Erro em tempo de execução '53': O arquivo não foi localizado". Percebi que você programou um tratamento para essa situação no botão "Salvar", então tentei adaptar o código para o botão de "Carregar Imagem", mas não obtive sucesso. Poderia me ajudar com o código adequado para evitar esse erro quando o botão "Cancelar" for pressionado após clicar em "Carregar Imagem"? Mais uma vez, parabéns pelo seu trabalho, sua ajuda tem sido essencial!

[@CanalSGP]

Bom dia, obrigado, teste colocar um if depois da variável Foto. Ex: Dim Foto As String Foto = Application.GetOpenFilename(FileFilter:="Foto, .jpg .bmp") If Foto = "Falso" Or Foto = "False" Then Exit Sub End If Image1.Picture = LoadPicture(Foto)

[@abdalapaz]

Obrigado!

[@CanalSGP]

De nada.

[@kauawatanabe9469]

Olá! Poderia me dizer se é possível fazer o Userform mostrar por exemplo 3 imagens de um mesmo ''cadastro''? Exemplo, crio 3 abas de imagem e quando crio um botão pesquisar, colocando por exemplo a placa de um veículo, ao encontrar, mostrar 3 fotos diferentes cadastradas..

[@CanalSGP]

Boa noite, tem outro formulário onde trabalhamos com duas imagens, segue link. kzbin.info/www/bejne/g6ubYaSleNqiobM

[@33601811]

Boa tarde! tem como mover a foto da pasta que foi aberta para uma nova pasta?

[@CanalSGP]

Boa tarde, acredito que seja o mesmo processo do vídeo, referenciando a pasta que deseja salvar vai trocar de pasta.

[@eltoncoelho8625]

Uma dívida professor... Se já existir uma foto na pasta e eu querer salvar automático igual a segunda forma ele vai substituir a foto que está lá?

[@CanalSGP]

Bom dia, vai substituir a foto anterior.

[@eltoncoelho8625]

@@CanalSGP muito obrigado pela resposta professor, acabei vendo o vídeo de novo eu vi que no final vc menciona isso... Uma última dúvida... Qual código usado para ao invés de carregar uma imagem do computador selecionar um range da própria planilha e salvar como imagem em uma pasta do computador? Agradeço muito se puder ajudar...

[@CanalSGP]

Boa tarde, tenho apenas um procedimento para carregar em um formulário, talvez ajude, segue link de vídeo explicativo. kzbin.info/www/bejne/h3eYgmCinJKDqbc

[@wagnerliebert]

Na opção de salvar a imagem , é possível redimensionar o tamanho dela para pasta ? Abraços.

[@CanalSGP]

Bom dia, nunca tentei nada parecido, vou estudar essa questão.

[@nono2299]

mas eu queria q a imagem fosse salva num "banco de dados" dai toda vez que o usuário pesquisar pelo produto o sistema puxa do banco de dados a imagem, é possível? do jeito q ta ai o usuário teria que ter o endereço da imagem exatamente igual ao meu... o q daria erro

[@CanalSGP]

Bom dia, com banco de dados não tentei ainda.

[@marcelogeomac6684]

Como faço para converter a foto carregada em um hyperlink para guardar no banco de dados?

[@CanalSGP]

Bom dia, não fiz nada neste sentido ainda.

[@landsteinerferreira]

Boa tarde, veja se conseguem me ajudar estou com o formulário carregando a imagem e só solicitar para carregar e eu clicar em cancelar o meu código dá um erro.

[@CanalSGP]

Boa tarde, qual a mensagem de erro que retorna?

[@negociosonline40]

🤣🤣🤣 está aqui a minha dúvida, vou estudar de forma separada pois não conseguir resolver essa etapa do formulário.

[@CanalSGP]

Boa tarde, salvar direto na pasta é um pouco mais complexo mesmo.

[@negociosonline40]

@@CanalSGP o bom que quando não consigo de um jeito consigo de outro só assistindo teus vídeo devido a grande diversidade de conteúdo do teu canal. Teu canal está crescendo parabéns, continua assim vai bater os 100k rapidinho e partir daí o céu é o limite. Quando vc receber sua placa faz um vídeo talkey acho bacana ver o sucesso das pessoas serve de inspiração.

[@CanalSGP]

Boa noite, obrigado, aos poucos vamos indo.

[@MILBLOCOSinc]

Na opção de salvar a imagem , acho uma operação irrelevante, pois na verdade ja temos a imagem na pasta original de onde estava gravada...a menos que estivéssemos buscando a imagem na internet, baixando e ai sim ter de salvar,. se fizer isto pode interessar, caso contrario não.

[@CanalSGP]

Bom dia, se adaptar o procedimento pode salvar imagem da internet, vou analisar futuramente a viabilidade de gravar uma vídeo aula adaptando o código.

[@negociosonline40]

Mas se a pessoas desejar salvar em outra pasta que acabou de criar para fins de organização?, Não é por menos que praticamente todos os programas existe essa função de personalizar a pasta e esse vídeo já mostra essa direção.

[@messiassouzasilva5079]

como fazer uma referencia uma textbox, para salvar o nome da foto pelo textbox. meu textbox é igual a txtID Dim nome As String nome = "txtID" pasta = "M:\CGE-SEGURANCA\1 - GESTÃO -SSMA\BRIGADA DE INCÊNDIO\1-BOMBEIROS\fotos\" & ("nome") & ".jpg" SavePicture Image1.Picture, pasta End Sub

[@CanalSGP]

Bom dia, experimente retirar a as aspas duplas da variável nome, (nome)

[@thiagocosta4713]

ME AJUDA PROFESSOR !!! Private Sub Cadastrar_Click() Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("Banco de Dados") Range("A9").Select While ActiveCell "" If cdCadastrar.Text = ActiveCell Then If MsgBox("cliente existe na base. Deseja substituir?", vbYesNo) = vbYes Then GoTo continue End If End If ActiveCell.Offset(1, 0).Activate Wend continue: iRow = ActiveCell.Row ws.Cells(iRow, 1).Value = Me.cdCadastrar.Value 'Essa parte de salvar as duas fotos, que não estou conseguindo na minha planilha' 'Até esta salvando, porém quando vou no botão editar (lá também uso esse mesmo código), se editar somente uma foto a planilha automaticamente, duplica a ultima foto que foi adicionada, ou no primeiro cliente ou no último.... Me ajuda professor !!! Do If Not (IsEmpty(ActiveCell)) Then ActiveCell.Offset(0, 1).Select End If Loop Until IsEmpty(ActiveCell) = True ActiveCell.Offset(0, 124).Value = Foto1 ActiveCell.Offset(0, 125).Value = Foto2 MsgBox ("Cadastrado Realizado com Sucesso"), vbInformation, "" Call Módulo2.Alfabetica Call carrega_dados_combo End Sub

[@CanalSGP]

Olá, não consegui localizar o erro.

[@thiagocosta4713]

@@CanalSGP POR FAVOR PROFESSOR, ME AJUDA, AGORA MUDEI O CÓDIGO.... Private Sub Cadastrar_Click() Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("Banco de Dados") Range("A9").Select While ActiveCell "" If cdCadastrar.Text = ActiveCell Then If MsgBox("cliente existe na base. Deseja substituir?", vbYesNo) = vbYes Then GoTo continue End If End If ActiveCell.Offset(1, 0).Activate Wend continue: iRow = ActiveCell.Row ws.Cells(iRow, 1).Value = Me.cdCadastrar.Value ws.Cells(iRow, 2).Value = Me.cdnome.Value ws.Cells(iRow, 3).Value = Me.cdcpf.Value como eu salvaria uma foto, usando essa linha de código acima.... ws.Cells(iRow, 124).Value = Me.Foto1.Value ws.Cells(iRow, 125).Value = Me.Foto2.Value nessa parte da foto da erro... e não salva a imagem.... MsgBox ("Cadastrado Realizado com Sucesso"), vbInformation, "" Call Módulo2.Alfabetica Call carrega_dados_combo