Prezados,
Eu desenvolvi um sistema de controle de despesas pessoais. O mesmo apresenta os seus gráficos/indicadores a partir por meio das userform's. Para isso, utilizo o seguinte código:
Dim ChartNum As Integer
Private Sub UserForm_Initialize()
ChartNum = 1
UpdateChart
End Sub
Private Sub UpdateChart()
Set CurrentChart = Sheets("G").ChartObjects(ChartNum).Chart
CurrentChart.Parent.Width = 419
CurrentChart.Parent.Height = 232
' Save chart as GIF
Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
CurrentChart.Export Filename:=Fname, FilterName:="GIF"
' Show the chart
Image1.Picture = LoadPicture(Fname)
End Sub
Isso funciona perfeitamente no excel 2007, mas no 2010 e 2013 da o seguinte erro:
Erro em tempo de execução '481':
Figura inválida
Pesquisei na internet a solução deste problema. Encontrei um tópico a cerca disso, mas não consegui resolver a minha necessidade, vejam abaixo:
http://www.ozgrid.com/forum/showthread.php?t=170965
Alguém pode ajudar-me?
Postado : 25/06/2014 2:02 pm