none
Carregar Gráficos em UserForm RRS feed

  • Pergunta

  • Pessoal,

    Tenho o seguinte código:

    'Carrega o Gráfico 1
    
    Set Gráfico = Sheets("Plan1").ChartObjects(1).Chart
    ArquivoGIF = ThisWorkbook.Path & "\temp.gif"
    Gráfico.Export Filename:=ArquivoGIF, FilterName:="GIF"
    Image1.Picture = LoadPicture(ArquivoGIF)
    
    'Carrega o Gráfico 2
    
    Set Gráfico = Sheets("Plan1").ChartObjects(1).Chart
    ArquivoGIF = ThisWorkbook.Path & "\temp.gif"
    Gráfico.Export Filename:=ArquivoGIF, FilterName:="GIF"
    Image2.Picture = LoadPicture(ArquivoGIF)
    
    'Carrega o Gráfico 3
    
    Set Gráfico = Sheets("Plan1").ChartObjects(3).Chart
    ArquivoGIF = ThisWorkbook.Path & "\temp.gif"
    Gráfico.Export Filename:=ArquivoGIF, FilterName:="GIF"
    Image3.Picture = LoadPicture(ArquivoGIF)

    Funciona perfeitamente, porém, ao abrir o Userform mais de uma vez, aparece o erro informando que a imagem não foi encontrada.

    Já tentei alterar o nome da imagem gerada e deixar especifico para cada gráfico, porém, não funcionou também.

    Como posso resolver isso?


    • Editado matmendes segunda-feira, 27 de julho de 2015 18:10
    segunda-feira, 27 de julho de 2015 18:10

Respostas

Todas as Respostas