Salvando imagem local especifico  [Resolvido]

Text Box, Form's, rotinas, etc.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Salvando imagem local especifico

Mensagempor fabio.cmaa » Seg Jul 08, 2019 3:42 pm

Boa tarde galerinha,

como eu poderia está alterando o local de salvamento da imagen que eu gero no useform???

Código: Selecionar todos
Private Sub UpdateChart()

   
    Set CurrentChart = Sheets("Graficos").ChartObjects("Gráfico 3").Chart
'   Save chart as GIF

   
    Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
    CurrentChart.Export Filename:=Fname, FilterName:="GIF"
   

'   Show the chart
    Image1.Picture = LoadPicture(Fname)
   
'==============================================================================='
    Set CurrentChart = Sheets("Graficos").ChartObjects("Gráfico 4").Chart
'   Save chart as GIF
    Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
    CurrentChart.Export Filename:=Fname, FilterName:="GIF"

'   Show the chart
    Image2.Picture = LoadPicture(Fname)
   
'==============================================================================='
     Set CurrentChart = Sheets("Graficos").ChartObjects("Gráfico 6").Chart
'   Save chart as GIF
    Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
    CurrentChart.Export Filename:=Fname, FilterName:="GIF"

'   Show the chart
    Image3.Picture = LoadPicture(Fname)
   
'==============================================================================='
    Set CurrentChart = Sheets("Graficos").ChartObjects("Gráfico 7").Chart
'   Save chart as GIF
    Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
    CurrentChart.Export Filename:=Fname, FilterName:="GIF"

'   Show the chart
    Image4.Picture = LoadPicture(Fname)
   
   
   
End Sub

o local eu gostaria que fosse pra esse como por exemplo >>>> ‪C:\Users\fabio.candido\Pictures\
Avatar do usuário
fabio.cmaa
Membro
Membro
 
Mensagens: 206
Registrado em: Qua Jul 20, 2016 7:34 am
Has thanked: 68 times
Have thanks: 10 times

{ SO_SELECT }

Re: Salvando imagem local especifico  [Resolvido]

Mensagempor wagner » Seg Jul 08, 2019 4:07 pm

fabio.cmaa,

Boa tarde!

Basta alterar as linhas onde tem:
Código: Selecionar todos
Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"

Para:
Código: Selecionar todos
Fname  = "C:\Users\fabio.candido\Pictures\temp.gif"
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel

For this post the author wagner thanked:
fabio.cmaa (Ter Jul 09, 2019 2:45 pm)
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 5530
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 101 times
Have thanks: 2345 times

Re: Salvando imagem local especifico

Mensagempor rlm » Seg Jul 08, 2019 4:10 pm

Uma variação da proposta do colega Wagner
Código: Selecionar todos
Private Sub UpdateChart()
Dim Caminho As String, Fname As String
'Determina o local a ser acessado/utilizado
Caminho = "C:\Users\fabio.candido\Pictures\"
'Verifica se a string Caminho termina com barra invertida "\", acrescenta se necessario
If VBA.Right(Caminho, 1) <> "\" Then Caminho = Caminho & "\"
   
Set CurrentChart = Sheets("Graficos").ChartObjects("Gráfico 3").Chart
'   Save chart as GIF
'Determina o nome do arquivo
Fname = "temp.gif"
'Salva no local previamente determinado
CurrentChart.Export Filename:=Caminho & Fname, FilterName:="GIF"
'   Show the chart
Image1.Picture = LoadPicture(Caminho & Fname)
End Sub
Reinaldo
Garça - SP / SCS - SP

For this post the author rlm thanked:
fabio.cmaa (Ter Jul 09, 2019 2:45 pm)
Avatar do usuário
rlm
Ninja do Excel
Ninja do Excel
 
Mensagens: 366
Registrado em: Qui Out 16, 2014 12:30 pm
Has thanked: 26 times
Have thanks: 165 times

Re: Salvando imagem local especifico

Mensagempor fabio.cmaa » Ter Jul 09, 2019 2:45 pm

Boa tarde Pessoal,

obrigado pela atenção de todos,

at.te,...


ambos me atenderam...
Avatar do usuário
fabio.cmaa
Membro
Membro
 
Mensagens: 206
Registrado em: Qua Jul 20, 2016 7:34 am
Has thanked: 68 times
Have thanks: 10 times


Voltar para Formulários

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante