Error 481 VB excel imagen invalida

Buenos Días Experto,

tengo un código el cual me trae unas gráficas mediante una numeración y en excel 2007 correo perfecto pero como ahora estoy en 2010 me arroja el Error 481 de tiempo de ejecución imagen no valida ya he cambiado los formatos en que guarda la imagen pero aun continua el error remito el código y agradezco su colaboración para ver si hay una posible solución ya que no se encuentra por ningún lado:

Dim GráficoNum As Integer
Private Sub Image1_Click()
End Sub


Private Sub UserForm_Initialize()
GráficoNum = Range("B1")
UpdateChart
End Sub


Private Sub CloseButton_Click()
Unload Me
End Sub


Private Sub UpdateChart()
Application.ScreenUpdating = False
Set CurrentChart = Sheets("Tabla").ChartObjects(GráficoNum).Chart
CurrentChart.Parent.Width = 370
CurrentChart.Parent.Height = 190
' Sabe 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

agradezco tu pronta colaboración mil gracias.

0

Añade tu respuesta

Haz clic para o