EXPORTAR IMAGENS DE UM USERFORM
Olá amigos,
Tenho um userform que contém um multipage com várias pages e dentro de cada page contém dois controles images que exibem figuras. A pergunta é: Tem com eu inserir um botão que teria a função de exportar estas imagens para um pasta especÃfica?
OBS: As imagens que estão nos controles images fora inseridas através da propriedade picture, ou seja, não foi preciso exibil-las através de caminho determinado no código.
Obrigado
Tenho um userform que contém um multipage com várias pages e dentro de cada page contém dois controles images que exibem figuras. A pergunta é: Tem com eu inserir um botão que teria a função de exportar estas imagens para um pasta especÃfica?
OBS: As imagens que estão nos controles images fora inseridas através da propriedade picture, ou seja, não foi preciso exibil-las através de caminho determinado no código.
Obrigado
em um botão:
Private Sub Command1_Click()
SavePicture Image1.Picture, [Ô]c:
omedaimagem.jpg[Ô]
End Sub
Private Sub Command1_Click()
SavePicture Image1.Picture, [Ô]c:
omedaimagem.jpg[Ô]
End Sub
MARCELO-TREZE,
Deu certo aqui, muito bom. O problema é que estou fazendo um relatório fotográfico especificando o antes e o depois de uma trabalho realizado, e queria dar a opção do usuário de exportar todas as imagens que estiverem no userform, (como você já mostrou que é possÃvel com o código postado), porém se não for pedir muito, no ato em que o usuário clicar no botão para exportar as imagens eu queria que fosse aberto um open file dialog e dar a oportunidade do usuário salvar onde quiser. Desde já agradeço.
Obrigado
Deu certo aqui, muito bom. O problema é que estou fazendo um relatório fotográfico especificando o antes e o depois de uma trabalho realizado, e queria dar a opção do usuário de exportar todas as imagens que estiverem no userform, (como você já mostrou que é possÃvel com o código postado), porém se não for pedir muito, no ato em que o usuário clicar no botão para exportar as imagens eu queria que fosse aberto um open file dialog e dar a oportunidade do usuário salvar onde quiser. Desde já agradeço.
Obrigado
coloque no form um commondialog control.
vá em Project / Componets... selecione Microsoft Common Dialog Control 6.0 (sp6)
no botão coloque
vá em Project / Componets... selecione Microsoft Common Dialog Control 6.0 (sp6)
no botão coloque
Private Sub Command1_Click()
On Error Resume Next
With CommonDialog1
.Filter = [Ô]Arquivo do tipo (*.jpg)|*.jpg|Todos Arquivos (*.*)|*.*|[Ô]
.ShowSave
SavePicture Image1, .FileName
End With
End Sub
MARCELO-TREZE,
Tem como colcar commdialog no excel?
Tem como colcar commdialog no excel?
ahhhh excel, boa pergunta, num sei vou pesquisar e retorno.
achei é assim
Private Sub CommandButton2_Click()
RetrieveFileName
End SubSub RetrieveFileName()
Dim sFileName As String
sFileName = Application.GetSaveAsFilename
If sFileName = [Ô]False[Ô] Then Exit Sub
MsgBox sFileName
End Sub
Este código não tem save picture? Estou compilando-o está abrindo a janela mas não tá salvando nada
só altere
para
MsgBox sFileNamepara
SavePicture Image1.Picture, sFileName
Fiz a alteração como pediu e está dando erro justo na linha [Ô]SavePicture Image1.Picture, sFileName[Ô] dizendo que o objeto é obrigatório. Quando abro a janela pra salvar (usado o código postado anteriormente)ela já mostra para o nome do arquivo e a extensão [Ô].xls[Ô], é assim mesmo?
bom como eu disse num sei fazer isto no excel, o que eu fiz foi pesquisar o código anterior, infelizmente é até onde posso chegar.
Tópico encerrado , respostas não são mais permitidas