Obtive a resposta no seguinte link: http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=356015 através do usuário Marcelo Treze.
Como o tópico foi fechado, não pude deixar lá meus agradecimentos.
Em resumo, o código apresentado no link (copiado abaixo) funciona desde que, ao salvar o arquivo, o usuário insira a terminação ".jpg".
Private Sub CommandButton2_Click() 'Ao se clicar no botão
RetrieveFileName 'A função é chamada
End Sub
RetrieveFileName 'A função é chamada
End Sub
Sub RetrieveFileName()
Dim sFileName As String 'Primeiro cria-se uma variável
sFileName = Application.GetSaveAsFilename 'Aqui está a primeira parte da "mágica"
If sFileName = "False" Then Exit Sub 'Em caso de erro, a função encerra
SavePicture Image1.Picture, sFileName 'E, aqui, a segunda parte da "mágica"
End Sub
Ainda fico com a dúvida se é possível inserir "FileType:=" em algum lugar para garantir que seja salvo em JPG.
Primeiramente muito grato pelo código, era exatamente o que eu queria. Será aplicado ao meu projeto.
ResponderExcluirÉ possível sim já salvar em .jpg
com esta codificação, o botão do formulário somente salva em BMP.
Bom! então com ajuda do CANAL SGP (Créditos a ele) o código ficou assim:
Eu simplifiquei para melhor entendimento da Macro, rotina ou função, e para os posteriores que vierem a ler este arquivo tão útil.
O código é o seguinte:
--------------------------------------------------------------
'Rotina ou Função diretamente do "commandButton" no seu evento Click
Private Sub CommandButton1_Click() 'Ao se clicar no botão
Dim i As String 'Primeiro cria-se uma variável "i", significa "Imagem"
i = Application.GetSaveAsFilename 'Aqui está a primeira parte da "mágica"
i = i & "jpg" 'Aqui a extensão ao qual o arquivo será salvo, .jpg
If i = "False" Then Exit Sub 'Em caso de erro, a função encerra
SavePicture Image1.Picture, i 'É, aqui, a segunda parte da "mágica"
End Sub
--------------------------------------------------------------